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ABSTRACT 


I 


Since  World  War  II,  the  electronic  warfare  officer  has 
been  planning  his  missions  by  hand.  The  threat  today  is  too 
large  and  complex  for  hand  planning.  The  Operational  EA6B 
Mission  Planning  Program  is  designed  to  automate  much  of  the 
clerical  work  involved  in  planning  electronic  warfare  missions. 
It  is  an  interactive  computer  program  utilizing  the  WANG  2200T 
installed  on  all  U.S.  aircraft  carriers.  The  program  consists 
of  eight  subprograms  linked  together  through  an  interactive 
main  program.  This  design  concept  allows  for  easy  access  to 
each  program.  In  addition,  future  programs  may  be  added 
without  difficulty.  Since  each  program  is  a separate  entity, 
one  may  be  changed  or  deleted  without  affecting  the  others. 
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I .  INTRODUCTION 


The  United  States  intelligence  community  has  been  collect- 
ing electromagnetic  signals  for  many  years.  The  U.S.  Navy 
has  been  involved  in  countering  those  signals  considered 
threats  since  World  War  II.  This  countering  has  taken  on  many 
shapes  and  forms-from  exploitation  to  sensor  denial  through 
active  countermeasures. 

The  U.S.  Navy's  first  active  airborne  jamming  platform  was 
the  EA-1,  followed  by  the  EKA-3.  Neither  aircraft  were  ini- 
tially designed  to  perform  electronic  warfare  missions.  The 
newest  and  most  sophisticated  naval  tactical  airborne  jamming 
aircraft  is  the  EA-6B . 

Previously  the  Electronic  Warfare  Officer  (EWO)  planned 
his  electronic  warfare  missions  by  hand.  Today,  the  EA-6B 
EWO  must  also  plan  his  missions  by  hand  against  an  Electronic 
Order  of  Battle  (EOB)  consisting  of  approximately:  /~"l_7 

1.  14,000  known  land  sites  with  a total  of  62,000  emitters; 

2.  1,200  types  of  commercial  and  combatant  aircraft  and 
missile  systems; 

3.  28,000  commercial  and  combatant  surface  ships; 

4.  1,100  submarines;  and 

5.  350  different  missile  systems. 

Against  an  EOB  at  this  magnitude,  it  is  a formidable  task 
for  an  EWO  to  plan  an  effective  electronic  warfare  mission  in 
a timely  manner . 


7 


■ . 


. 


I 

I 


J 

I 


The  initial  stages  of  planning  an  electronic  warfare  mis- 
sion are  quite  time  consuming.  It  consists  of  gathering  num- 
erous publications  such  as  the  kilting  lists.  Radar  Order  of 
Battle,  Radar  Handbook,  Tacmanuals,  etc.  The  planner  must  then 
sort  through  them  to  retrieve  the  required  information (e .g. 
site  location,  emitter  parameters,  etc.)  before  the  actual 
strike  planning  can  begin.  Once  the  charts  depicting  the  EOB, 
radar  and  weapon  envelopes,  and  aircraft  route  of  flight  have 
been  completed,  the  scenario  may  then  be  subjectively  analyzed 


and  jammer  positions  optimized.  Some  noise  jamming  effective- 
ness calculations  may  be  performed.  However,  as  a general  rule 
they  are  not  since  they  are  very  time  consuming  and  cumber- 
some. Also,  the  results  are  not  accurate  for  the  newer  modu- 
lations available  to  the  EWO, 

As  the  threat  library  increases  so  do  the  EWO's  problems. 
By  automating  the  majority  of  the  "bookkeeping",  the  EWO  will 
have  more  time  available  to  subjectively  analyze  the  scenario. 

I I 
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II.  BACKGROUND 


* 

Research  at  the  Naval  Postgraduate  School  in  computer 
aided  electronic  warfare  mission  planning  was  initially  com- 
pleted in  June  1977  by  Beaudet  /~2  J and  Watts  /~ 3_7-  They 
were  followed  in  March  1978  by  Odell  /"" 4 _7.  The  resulting 
papers  dealt  with  a particular  section  or  facet  of  the  mis- 
sion planning  process. 

Watts  /~ 3 _7  dealt  with  the  problem  of  determining  an  op- 
timum route  for  the  jamming  aircraft.  For  his  computer  simu- 
lation, a modified  escort  mission  profile  was  used.  This 
type  of  profile  permits  the  jamming  aircraft  to  accompany 
the  strike  group  only  in  those  areas  where  the  exposure  to 
enemy  threat  is  set  to  an  EWO  determined  maximum  level. 

The  optimum  route  is  determined  by  starting  at  the  point 
where  the  strike  group's  exposure  to  is  the  greatest.  For 
this  position  and  time,  an  optimum  jammer  position  is  compu- 

ii 

ted.  The  program  then  computes  the  route  in  positive  and 
negative  time  from  the  previous  optimum  point.  In  theory, 
this  is  the  optimum  route.  In  actuality,  the  simulation  cal- 
culates several  optimum  routes,  each  with  its  own  measure  of 
effectiveness.  All  of  these  possible  routes  are  presented  to 

| 

the  operator  who  makes  the  final  selection. 

Beaudet  developed  computer  software  that  automated  many 
of  the  initial  processes  involved  in  electronic  warfare  mis- 
sion planning.  A series  of  operator-computer  interfaces  were 
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utilized  to  keep  the  planner  integrally  involved  in  the  planning 
process.  This  eliminated  a substantial  portion  of  the  mission 
planning  drudgery. 

Beaudet's  program  was  designed  to  accomplish  the  following: 

1.  Plot  a strike  force  route-of -flight  based  on  operator 
entered  turn  point  coordinates ; 

2.  Produce  a complete  electronic  order  of  battle  (EOB) 
printout  of  the  area  of  interest. 

3 . Visually  present  emitter  detection  envelopes  and 
flight  paths  based  on  steps  1 and  2. 

4.  Compute  and  provide  to  the  mission  planner,  a complete 
navigation  solution  and  threat  emitter  reaction  infor- 
mation for  the  strike. 

This  simulation  was  accomplished  on  an  IBM  360/67  general 
purpose  computer  with  an  interactive  graphics  display  terminal. 
The  800  step  program  was  written  in  FORTRAN  IV  and  required 
10,000  words  of  memory. 

Beaudet  proved  automation  of  EA-6B  mission  planning  is 
feasible.  Odell  attempted  to  make  it  practical.  His  research 
revealed  that  with  the  exception  of  the  WANG  2200T,  most  com- 
puter systems  on  board  today's  aircraft  carriers  were  either 
inaccessible  to  EA-6B  aircrews  or  were  so  overworked  that 
usage  would  be  impractical. 

Odell's  design  objectives  were  to  automate  as  much  of  the 
mission  planning  process  as  possible  and  to  optimize  the 
jamming  route  selection  criteria. 

He  planned  to  accomplish  the  first  objective  by  converting 
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Beaudet's  program  from  FORTRAN  to  WANG  Baaic.  However,  after 
conversion,  the  program  was  too  large  for  the  WANG's  internal 
memory.  It  was  subdivided  into  three  modules.  Each  module 
was  loaded  into  memory  from  a floppy  disk  as  required. 

His  second  objective  was  achieved  by  a simple  optimization 
scheme  based  on  the  presence  of  a jamming  aircraft  in  the 
threat  radar  beam  width,  distance  from  the  threat  radar,  strike 
group  position,  and  possible  EA-6B  positions.  This  scheme 
may  not  produce  the  definitive  optimum  route  for  all  situa- 
tions involving  all  types  of  jamming.  However,  it  does  pre- 
sent the  operator  with  another  possible  route  from  which  to 
select  his  route  of  flight. 

The  proposed  source  for  Beaudet's  and  Odell's  electronic 
order  of  battle  was  the  NIPS  computer  located  in  the  carrier's 
intelligence  center.  From  this  data  base,  all  of  the  required 
information  for  supporting  the  program  would  be  obtained  via 
an  interface  with  the  WANG.  This  critical  interface  is  not 
and  will  not  be  available  in  the  foreseeable  future. 
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DESIGN  CONSIDERATIONS 


The  primary  objective  of  this  project  was  to  design  and 
deploy  an  EA-6B  computerized  mission  planning  program  uti- 
lizing Beaudet's  and  Odell's  concepts.  This  had  to  be  accom- 
.plished  using  the  existing  assets  currently  on  board  U.S.  air- 
craft carriers.  An  TOC  (Initial  Operational  Capability)  of 
September  1978  was  scheduled.  This  coincided  with  TACELRON 
(Tactical  Electronic  Warfare  Squadron)  132' s West  Pac  deploy- 
ment. The  critical  factor  was  the  availability  of  a suitable 
data  base.  The  carrier's  NIPS  (Naval  Information  Processing 
System)  computer,  located  in  CVIC  (Carrier's  Intelligence 
Center),  does  not  allow  for  direct  access  from  other  computers. 
The  interface  hardware  and  software  between  the  WANG  2200T  and 
NIPS  is  currently  under  development.  It  will  not  become 
available  for  approximately  three  years . 

The  various  naval  and  national  intelligence  sources  were 
contacted.  All  could  supply  a data  base  but  not  on  the  floppy 
disk  required  by  the  WANG.  Fortunately,  the  Naval  Electronic 
Engineering  Office  (NEEO)  in  Damneck,  Virginia,  could  supply 
the  required  data  base  in  the  desired  format  and  on  the  WANG 
floppy  disk.  This  support  could  be  provided  on  a continuing 
bases  and  at  a reasonable  cost. 

Efficient  data  base  management  prohibited  coupling  a data 
base  stored  on  a floppy  '’isk  to  Odell's  program.  Therefore 
new  programs  were  written  using  the  same  goals  and  ideas . In 
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addition  the  programs  were  to  meet  the  following  additional 
criteria: 


1.  They  had  to  be  simple  to  operate.  Operator  training 
time  had  to  be  kept  to  a minimum. 

2.  The  resultant  product  had  to  be  flexible  and  easily 
changed  to  meet  the  changing  needs  of  the  EA-6B 
squadrons . 

It  was  decided  at  the  onset  that  if  at  all  possible,  an 
operational  program  would  be  made  available  to  the  EA-6B 
squadrons  prior  to  1 October  1978.  The  driving  force  behind 
this  was  to  get  something  into  the  fleet  and  get  their  feed- 
back for  future  development.  Because  of  the  short  time  avail- 
able, the  interactive  graphics  display  capabilities  would  have 
to  be  added  at  a later  date. 
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IV.  SYSTEM  DESCRIPTION 


The  Operational  EA-6B  Mission  Planning  Programs  use  the 
WANG  2200T  computer  system  currently  installed  on  board  the 
U.S.  aircraft  carriers.  As  a minimum,  the  system  must  have 
a CRT,  16k  of  CPU  memory,  line  printer,  and  a dual  floppy  disk 
drive  unit.  A triple  disk  drive  unit  is  preferable. 

Currently,  in  this  developmental  package  there  are  eight 
programs  available  to  the  mission  planner.  Each  program  is 
a separate  entity  unto  itself.  They  are  all  tied  together 
through  a ninth  program  called  the  START  module. 

The  START  module  limits  the  number  of  commands  required 
to  operate  all  the  program  to  one.  It  provides  for  easy 
transition  from  one  program  to  another.  In  addition  it  pro- 
vides for  adding  future  programs  that  may  be  developed  with- 
out changing  the  software  of  the  existing  programs. 

The  seven  operational  programs  avail'  ble  at  this  time  are 
entitled:  LAND,  MOBILE,  PLATFORM,  MATCH,  LIST,  EXCAB  EA6B 

I 

MANAGEMENT , ICAP  EA6B  LIST  MANAGEMENT,  HULTEC  and  PRINT. 

Each  program  will  be  discussed  in  further  detail. 

The  heart  of  the  programs  is  the  WANG  KFAM-3  (Key  File 
Access  Method)  data  management  system.  /— 1 5_7  KFAM  maintains 
an  index  of  each  individual  record  in  the  data  base  and  its 
location  in  memory.  This  is  accomplished  by  associating  a 
unique  key  to  each  data  record . 


The  data  base  used  in  the  mission  planning  programs  is 
divided  into  three  separate  units.  They  are:  the  land  elec- 
tronic order  of  battle,  mobile  platform  electronic  order  of 
battle,  and  the  emitter  parameter  listing  (EPL) . 

The  mobile  platform  EOB  data  file  has  one  associated  key 
file  while  the  EPL  has  three.  All  key  files  (except  for  one 
of  the  EPL's),  are  located  on  the  same  floppy  with  its  asso- 
ciated data  file.  The  land  EOB  data  file  does  not  have  a key 
file. 

The  keys  make  it  possible  to  access  the  data  files  and 
display  to  the  operator  the  desired  information  in  a timely 
manner.  An  EPL  key  file  may  contain  an  emitter's  NATO  desig- 
nator, or  its  NATO  nickname;  while  a mobile  platform's  key 
file  may  consist  of  the  platform's  name. 

As  stated  above,  the  land  EOB  data  base  does  not  have  an 
associated  key  file.  KFAM  is  not  used  in  conjunction  with 
this  data  base.  This  will  be  explained  in  more  detail  in 
the  next  section. 

The  operator /computer  integrity  that  is  so  important  in 
any  automated  system  is  maintained  throughout  the  operation 
of  each  program.  The  operator  is  required  to  supply  pertinent 
information  at  various  points  during  the  execution  of  each 
program. 

B.  DATA  FILES 

The  data  base  support  for  these  programs  is  provided  by 
NEEO,  Damneck,  Virginia.  /— 1 J They  receive  the  periodic 
intelligence  updates  produced  by  the  various  national 
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intelligence  agencies  (NSA,  DIA,  etc.).  They  update  their 
own  data  base  which  is  a compilation  of  all  the  sources'  data 
bases.  Then  an  updated  data  base  is  supplied  to  the  EA-6B 
squadrons  utilizing  the  mission  planning  programs . Each  data 
base  is  tailored  for  the  squadron's  operating  area.  Upon 
receipt  of  new  data  disks,  the  squadrons  return  the  old  disks 
to  NEEO  for  reuse. 

The  data  base  consists  of  a land  EOB,  mobile  EOB,  and  EPL. 
The  EPL  contains  both  commercial  and  military  emitters  within 
the  frequency  limits  of  the  EA-6B.  This  restriction  was 
necessary  because  of  the  limited  storage  on  the  floppy  disk. 

NEEO  will  tailor  the  data  base  to  meet  a squadron's  opera- 
tional requirements.  The  squadron  must  inform  NEEO  of  any 
needed  changes  prior  to  the  first  of  each  month.  The  tailor- 
ing may  include  such  items  as  adding  or  deleting  certain  plat- 
forms or  emitters.  However,  the  tailoring  may  be  restricted 
by  the  available  disk  space  remaining  on  a floppy.  For  ex- 
ample, the  maximum  number  of  emitters  and  the  associated 
signals  are  currently  limited  to  two  thousand  eight  hundred. 
This  number  may  increase  in  the  future  to  four  thousand. 

Each  emitter  contained  in  the  EPL  requires  at  least  two 
sixty  four  byte  records  on  the  disk.  The  first  record  con- 
tains the  following  information  in  the  format  shown. 


1 . 
I 1 
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Column  Nos 
1=5 
8 

10-21 

23-24 

27-30 

38-61 


Contents 
Elint  Notation 
Mode  Counter  (MC) 

NATO  Nickname 
Emitter  Function  Code  (FC) 
Four  Digit  NTDS  Number 
Comments 


16 


The  second  and  subsequent  records  contain  the  signal  para- 
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meter  information  in  the  following  format. 


Column  Nos 

Contents 

1=5 

Elint  Notation 

6 

End  Mode  (-  indicates  last  mode) 

7-8 

Mode  Counter  (MC) 

10-14 

RF  Low 

16-20 

RF  High 

22-26 

PRF  Low 

28-32 

PRF  High 

34-37 

Pulse  Width  Low 

39-42 

Pulse  Width  High 

44 

Modulation  Type 

47-51 

Scan  Type 

53-56 

Scan  Period  Lower 

Limit 

58-61 

Scan  Period  Upper 

Limit 

Standard  DIA  codes  are  used  for  the  emitter ' s function 
code,  modulation  type  and  scan  type. 

The  mode  counter  is  used  to  distinguish  each  signal.  The 
record  containing  the  emitter ' s NATO  nickname  always  has  an 
MC  of  zero.  MC  increases  by  one  for  each  subsequent  signal 
or  mode.  The  last  mode  is  distinguished  by  a negative  sign 
in  column  six. 

The  modes  listed  for  each  emitter  may  differ  by  only  one 
parameter.  This  increases  the  size  of  the  EPL  but  it  pro- 
vides the  mission  planner  with  each  known  signal  rather  than 
a range  of  parameters  for  an  emitter. 

The  comments  section  contain  information  pertinent  to  that 
emitter.  This  may  include  associated  emitters,  platforms,  or 
weapons.  Recommended  jamming  modulations  will  be  added  at  a 
later  date.  This  must  be  done  at  NEEO.  Otherwise  the  squa- 
dron would  need  to  reenter  the  information  each  time  a new 
EPL  is  received. 
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The  Land  EOB  data  file  contains  a listing  of  the  known 


radar  sites  within  the  geographical  boundaries  of  that  file. 
Each  site  requires  one  sixty  four  byte  record  of  the  format 
shown  below.  If  a site  contains  more  than  eight  emitters  , a 


second  sixty  four  byte  record  will  be  used. 


Column  Nos 


Contents 


1 

2-16 

17-18 

21-60 

61-62 


Category  (L  for  Land) 

Site  latitude  & longitude 
Country  Code 

Elint  notations  of  site's  emitters 
Site  Function  Code 


The  Mobile  EOB  data  file  contains  a listing  of  the  known 
emitters  on  board  each  mobile  platform  contained  in  the  li- 
brary. The  mobile  file  format  is  the  same  as  that  shown  for 
the  Land  EOB  except  for  two  changes . The  category  code  for  a 
mobile  platform  is  M,  A,  S,  or  B.  The  platform's  class  name 
is  contained  in  columns  two  through  sixteen. 


C.  PROGRAMS 

1.  As  discussed  earlier,  the  START  module  limits  the 
number  of  commands  the  operator  is  required  to  know  for 
operating  with  these  programs  to  one.  Through  this  module, 
the  operator  gains  access  to  each  of  the  seven  remaining 
programs . Any  programs  developed  and  added  at  a later  date 
may  be  accessed  through  this  module. 

After  the  START  module  is  loaded  and  running,  a menu  of 
the  available  programs  is  presented  on  the  screen.  The 
operator  selects  the  program  he  wants  and  enters  its  number 
into  the  computer.  That  program  is  loaded  into  memory.  Each 


program  will  display  its  function  on  the  CRT  after  it  is  loaded. 
This  is  to  ensure  the  operator  has  selected  the  correct  program. 

When  a program  is  finished,  the  operator  will  be  presented 
with  three  options.  One  of  the  choices  is  to  return  to  the 
START  module  to  select  another  program.  This  feature  allows 
the  operator  to  continue  through  as  many  programs  as  necessary 
without  his  reloading  the  START  module. 

2.  The  LAND  program  allows  the  operator  to  input  the 

latitude  and  longitude  of  two  geographical  points  and  obtain 

the  EOB  for  the  enclosed  rectangular  area. 

A typical  output  would  appear  as  follows : 

SITE  #1  of  6 
LAT  345119N 
LONG  1234700W 
FC  MC 
CC  US 

ELINT  MC  FC  EMITTER  NAME  COMMENTS 

A123A  0 TT  UNCLE  AL'S  LOCATED  NEXT  TO  JOE'S 

A245Z  0 EW  LONG  GIRL 


The  operator  decides  if  the  output  is  to  be  listed 
on  the  CRT  or  on  the  line  printer.  He  also  decides  if  the 
signal  parameters  associated  with  each  emitter  are  to  be 
included  in  the  listing. 

\ 

3 . The  MOBILE  PLATFORM  program  provides  a listing  of  a 
selected  platform's  EOB.  The  platform  may  be  an  aircraft, 
surface  ship,  submarine,  or  missile.  Both  commercial  and 
combatant  platforms  are  included  in  the  data  base.  The 
operator  inputs  the  platform's  name  and  country  code.  The 
resultant  listing  may  appear  as  shown  below.  The  emitter 
parameter  may  be  included  in  the  listing.  The  output  may  be 
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printed  on  the  CRT  or  line  printer. 


Name 

OHIO 

CC 

US 

FC 

CV 

ELINT 

MC 

FC 

EMITTER'S  NAME 

COMMENTS 

A123Z 

0 

EW 

PLANT 

B246D 

0 

SS 

SPS-10 

4.  The  LIST  program  provides  the  mission  planner  with  a 
listing  of  an  emitter's  signals.  Either  the  emitter's  elint 


notation  or  its  NATO  nickname  is  entered  into  the  computer. 


i 


A typical  listing  would  appear  as  follows: 


ELINT  MC  FC  EMITTER'S  NAME  COMMENT 

A123Z  0 EW  PLANT 

ELINT  MC  RFLO  RFHI  PRFLO  PRFHI  PWLO  PWHI  MOD  SLO  SHI  STYPE 
A123Z  1 200  300  200  300  2 3 A 2 3 F 

A123Z  -2  400  450  200  300  2 3 A 2 3 F 


The  listing  is  first  presented  on  the  CRT  then  on  paper 
if  a hard  copy  is  desired. 

When  a match  cannot  be  made,  the  operator  is  so  informed. 
He  is  asked  to  check  his  input.  If  it  is  correct,  then  that 
emitter  is  not  located  in  the  data  base. 

5.  The  EA-6B  squadron's  Electronic  Warfare  Officer  is 
responsible  for  the  management  of  the  alarm  and  CCI  assign- 
ment lists.  During  an  exercise,  these  lists  may  change  any- 
where from  one  to  six  times.  Making  the  changes,  typing  a 
master,  and  reproducing  the  required  number  of  copies  can  be 
a formidable  task.  The  EA-6B  LIST  MANAGEMENT  Programs  were 
designed  to  help  alleviate  the  problems  stated  above.  The 
EWO  selects  the  List  Management  program  that  is  applicable 
to  his  type  EA-6B. 
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Three  complete  sets  of  lists  are  stored  on  the  PROGRAMS 
floppy  disk  at  any  one  time.  The  operator  may  recall  any  set, 
list  it  on  the  CRT  or  on  paper,  make  any  changes  he  desires, 
list  it  again,  and  save  the  changed  lists  on  the  disk  in 
place  of  the  old  set. 

Those  parameters  allowed  in  the  EA-6B's  on  board  computer 
are  acceptable  entries.  Most  erroneous  entry  attempts  will 
be  rejected. 

6.  The  MATCH  program  is  a post  mission  signal  identifi- 
cation aid.  The  operator  inputs  the  parameters  of  an  uniden- 
tified signal.  The  computer  scans  the  EPL  data  base  and  lists 
all  signals  that  match  the  inputed  parameters. 

The  operator  may  enter  a signal's  frequency,  prf,  and 
pulse  width  or  its  frequency  plus  one  of  the  remaining  two 
parameters.  The  more  parameters  inputed,  the  smaller  the 
output  listing.  The  final  identification  is  left  to  the  opera 
tor.  He  may  use  scan  type,  scan  rate,  and/or  modulation  type 
for  the  final  identification. 

The  listing  may  be  printed  on  paper  for  later  use. 

7.  The  HULTEC  program  provides  the  EWO  with  a convenient 
means  of  maintaining  an  up  to  date  HULTEC  file.  The  operator 
inputs  an  emitter's  frequency,  PRF,  PRI  range,  scan  period, 
pulse  width,  name,  NTDS  key  number,  and  the  associated  plat- 
form name.  The  inputs  may  be  stored  on  the  floppy  disk  for 
use  at  a later  date.  Before  being  saved,  the  operator  inputs 
the  current  date. 

Each  time  the  program  is  run,  the  HULTEC  file  is  loaded 


r- 
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I 1 

I | 
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into  the  computer.  The  operator  may  then  view  the  existing 
file,  change  any  data  needing  changing,  save  the  updated  data 
file,  and  obtain  hard  copies  of  the  data  file. 

The  operator  may  input  up  to  fifty  different  lines  of 
data.  Prior  to  it  being  saved,  it  is  arranged  in  ascending 
frequency  order. 

A listing  by  platform  name  or  emitter  name  is  possible. 

The  operator  must  input  the  name  and  all  data  lines  containing 
that  name  will  be  listed  on  the  CRT  then  on  paper  if  desired. 

8.  The  PRINT  program  will  provide  a hardcopy  printout  of 
the  EPL  and  EOB  data  bases.  The  elint  notation  and  NATO 
nickname  of  each  emitter  in  the  EPL  is  printed.  For  the  Mobile 
EOB,  the  platforms'  name  and  country  code  is  listed.  While 
for  the  Land  EOB,  each  site's  latitude,  longitude,  and  country 
code  is  listed.  This  program  eliminates  the  necessity  of 
NEEQ  mailing  data  base  listings  with  each  update. 

D . DATA  MANAGEMENT 

The  KFAM-3  data  management  system  is  the  heart  of  most  of 
the  mission  planning  programs.  The  KFAM  subroutines  and 

i 

associated  key  files  make  it  possible  to  quickly  locate  a 
particular  data  record  in  the  file.  After  the  record  is  lo- 
cated, the  main  program  retrieves  the  data  and  processes  it 
before  presenting  it  to  the  operator. 

The  key  files  contain  a portion  of  the  data  record  (the 

1 

key)  plus  the  record's  location  in  the  data  file.  The  keys 
used  in  the  mission  planning  programs  are: 

I 


DATA  FILE 


KEY 


* 


i 


I 


Mobile  EOB 

EPL 

EPL 

EPL 


Platform's  name  and  CC 
Elint  notation 
Emitter  name 

Elint  notation,  mode  counter, 
frequency  low,  and  frequency 
high. 


The  key  files  are  created  through  two  special  WANG  sup- 
port utilities  described  in  section  six.  The  key  file  crea- 
tion is  included, in  the  support  provided  by  NEEO  Damneck. 

The  Land  program  does  not  use  KFAM  to  locate  the  sites, 
since  the  mission  planner  is  interested  in  an  area  rather  than 
one  particular  site.  The  binary  search  technique  /~ 6_7  is  used 
for  locating  the  correct  area  of  interest  in  the  Land  EOB 
data  file.  Once  located,  the  data  is  sorted  by  comparing  the 
data  latitudes  and  longitudes  to  those  entered  by  the  operator. 
For  the  binary  search  technique  to  work,  the  latitudes  and 
longitudes  must  be  in  ascending  order. 

Once  all  sites  are  located,  KFAM  is  used  to  process  the 
data  for  listing  the  emitters  located  at  each  site.  In  this 
case  the  EPL  and  one  of  its  key  files  are  used. 
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V.  CONTRIBUTIONS  AND  FUTURE  CONSIDERATIONS 


A.  OPERATIONAL  USE 

The  programs  were  deployed  with  TACELRON  132  aboard  USS 
CONSTELLATION  (CV-64)  in  September  1978;  with  TACELRON  138 
aboard  USS  DWIGHT  D.  EISENHOWER  (CVN-60)  in  January  1979; 
and  with  TACELRON  137  aboard  USS  RANGER  (CV-61)  in  February 
19  79. 

They  have  also  been  made  available  to  Commander,  Medium 
Attack-Tactical  Electronic  Warfare  Wing,  U.S.  Pacific  Fleet, 
for  use  by  the  other  EA-6B  squadrons  under  their  cognizance. 

NEED  has  been  tasked  and  funded  for  one  year  to  supply 
the  required  data  bases  monthly  to  each  deployed  EA-6B 

. 

squadron. 

To  receive  the  initial  data  base,  the  squadron's  EWO 
contacts  NEEO  approximately  four  to  six  weeks  prior  to  its 
scheduled  deployment  date.  He  informs  NEEO  of  their  departure 
date,  operating  area  (Med/WestPac) , and  any  special  require- 
ments  the  squadron  may  have.  If  the  squadron  is  in  Norfolk, 

1 

the  EWO  should  visit  the  NEEO  Damneck  office.  U.S.  data  bases 
are  available  for  those  squadrons  on  build  ups.  The  same 


B.  FUTURE  CONSIDERATIONS 

Because  of  time  constraints,  many  features  needed  to  make 
this  a complete  mission  planning  package  are  not  included. 
Without  great  modifications,  all  items  discussed  in  this  sec- 
tion could  be  incorporated,  thus  expanding  the  features  and 
versatility  of  this  system. 

If  this  project  is  to  continue  to  be  used  by  the  opera- 
tional squadrons,  a source  for  funding  NEEO  is  paramount.  A 
projected  cost  estimate  of  twenty  to  thirty  thousand  dollars 
a year  is  required.  This  estimate  is  based  on  an  average  of 
four  deployed  squadrons  receiving  a monthly  update.  This 
cost  would  decrease  if  it's  found  through  experience  the 
monthly  update  is  not  required. 

The  programs  in  this  project  were  constructed  to  operate 
independently  of  each  other  except  for  the  START  module.  By 
using  the  START  module  and  independent  operation,  future  pro- 
grams may  be  added  without  difficulty.  Suggestions  for  new 
programs  and  improvements  will  be  generated  as  more  people 
use  the  existing  programs.  A central  point  of  contact  to 
receive  these  inputs  is  needed.  CCMMATVAQWINGPAC  would  be 
the  logical  choice.  Continued  software  development  may  be 
done  by  thesis  students  at  the  Naval  Postgraduate  School  and/ 
or  either  Naval  Electronic  Engineering  Office,  Damneck,  Vir- 
ginia, or  the  Procal  Support  Office  at  Naval  Ocean  System 
Center,  San  Diego,  California.  Funding  will  be  the  deter- 
mining factor,  but  COMMATVAQWINGPAC  should  pursue  this  matter. 


Some  suggested  software  improvements  and/or  additions  are: 


1.  Incorporate  WANG's  newest  data  management  system  en- 
titled IDEAS  (Inquiry,  Data  Entry  and  Access  System) . IDEAS 
uses  a technique  called  HIKAM  (Hoshed  Index  Keyed  Access  Method) . 
Key  files  are  not  required,  thus  more  disk  space  would  be  avail- 
able for  data  storage.  IDEAS  is  compatible  with  the  WANGs  on- 
board the  carriers . 

2.  Incorporate  an  XY  plotting  routine  in  the  LAND  program. 
This  will  allow  computer  plotting  of  the  EOB  on  the  proper  ONC 
chart,  thus  automating  one  more  manual  function  the  mission 
planner  is  required  to  perform. 

3.  Add  a program  that  will  list  all  platforms  or  land 
sites  that  have  an  operator  specified  emitter. 

4.  Add  the  capabilities  as  outlined  by  Odell  and  Bsaudet. 
That  is,  an  interactive  program  utilizing  a graphics  terminal 
for  complete  EOB  and  strike  path  plotting.  An  optimization 
routine  is  considered  essential  with  this  interactive  capa- 
bilities package. 

The  following  hardware  recommendations  are  made: 

1.  If  a plotting  routine  is  incorporated,  an  X-Y  plotter 
will  need  to  be  installed  on  each  carrier.  These  are  avail- 
able from  various  sources  and  can  be  incorporated  without 
any  difficulties. 

2.  The  dual  disk  drive  systems  should  be  updated  to  tri- 
ple drives.  The  approximate  cost  for  each  additional  drive 
is  fifteen  hundred  dollars.  This  third  drive  allows  for  more 
system  flexibility  for  not  only  the  mission  planning  programs 
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3.  An  interactive  graphics  display  will  be  required  when 
the  programs  are  expanded  to  their  fullest  capabilities. 


APPENDIX  A 

USER'S  GUIDE  TO  THE  PROGRAM 

A.  INTRODUCTION 

This  section  is  intended  to  be  used  by  the  operators.  Ho1 
to  operate  each  program  is  discussed.  For  those  unfamiliar 
with  the  WANG  2200T,  a brief  discription  on  its  operations 
has  been  included.  More  detailed  information  may  be  found  in 
WANG's  Programming  in  Basic.  /~7_7 

Some  shipboard  installations  have  dual  and  some  triple 
disk  drive  units.  Since  the  later  is  the  predominate  confi- 
guration, it  will  be  used  as  the  standard  in  this  guide. 

For  the  triple  drive  system,  the  PROGRAMS  disk  is  to  be 
installed  in  drive  number  one,  the  EOB  disk  in  drive  two,  and 
the  EPL  disk  in  drive  three.  For  the  MATCH  program,  the  EPL 
Key  File  disk  is  placed  in  drive  two  and  the  EPL  disk  in 
drive  three. 

For  a dual  drive  system,  the  PROGRAMS  disk  is  placed  in 
drive  one  and  the  EPL  disk  in  drive  two.  After  the  desired 
program  is  loaded,  the  EOB  disk  replaces  the  PROGRAMS  disk 
in  drive  one.  For  the  MATCH  program,  the  EPL  KEY  File  disk 
is  placed  in  drive  one  and  the  EPL  disk  in  drive  two. 

The  programs  are  designed  so  that  the  operator  may  either 
1)  return  to  the  beginning  of  the  program  currently  in  the 
computer,  or  2)  return  to  the  START  module  to  load  in  a 
different  program,  or  3)  terminate  all  operations  after  the 


selected  program  is  finished  executing.  This  provides  for 
easy  transfer  from  one  program  to  another. 

Prior  to  reloading  the  START  module  in  a dual  drive  system 
the  PROGRAMS  disk  must  be  reinserted  if  it  was  removed.  If 
this  is  not  done,  an  error  will  result.  The  operator  must 
then  manually  reload  the  START  module. 

Each  program  is  designed  to  prompt  the  operator  for  infor- 
mation as  it  is  needed.  If  the  response  is  incorrect  or  in- 
appropriate it  will  be  rejected.  The  operator  will  be  asked 
once  again  for  the  information. 

B.  BASIC  OPERATOR  INSTRUCTIONS 

If  the  system  has  been  operating,  it  will  be  necessary  to 
clear  memory  prior  to  entering  another  program.  This  is 
accomplished  by  first  depressing  the  RESET  button.  This 
stops  the  execution  of  any  program  that  may  be  in  memory. 

Then  either  type  in  the  word  CLEAR  or  depress  the  key  labeled 
"CLEAR".  The  CRT  display  will  appear  as: 

READY 

:CLEAR_. 

The  (EXEC)  key  is  now  depressed.  Any  programs  that  may 
have  been  in  memory  are  now  cleared.  It  is  good  practice  to 
clear  memory  prior  to  loading  any  program  into  the  computer. 

The  operator  enters  information  into  the  computer  via  the 
keyboard.  Each  letter  or  number  appears  on  the  screen  as  the 
key  is  depressed.  If  an  error  is  made,  depress  the  BACK  SPACE 
key  to  the  erroneous  value  and  reenter  the  correct  values. 

Once  the  desired  entry  is  displayed  on  the  CRT,  depress  (EXEC) 
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to  enter  the  information  into  the  computer. 

Whenever  the  computer  is  processing,  the  white  light  in 
the  upper  right  corner  of  the  keyboard  will  be  illuminated. 
When  the  computer  is  waiting  for  an  input  from  the  operator, 
will  appear  on  the  CRT  screen. 

C . START  PROGRAM 

The  START  program  provides  an  easy  access  to  the  other 
programs  in  the  EA-6B  mission  planning  program  library. 
Operation: 

1.  Clear  the  computer's  memory  as  discussed  in  the 
preceeding  section. 

2.  Install  the  PROGRAMS  disk  in  drive  number  one. 


3.  Key  in  LOAD  DCF  "START"  exactly  as  it  appears 


here.  The  CRT  will  appear  as 
:LOAD  DCF  "START" 


4.  Depress  (EXEC)  to  enter  the  load  instruction. 

5.  After  the  reappears  on  the  CRT,  key  in  RUN. 

6.  Depress  (EXEC) . 

7.  The  following  will  appear  on  the  CRT 


DISPLAY 


INSTRUCTIONS 


1.  ARE  YOU  WORKING  ON  A 2 OR  3 
DRIVE  SYSTEM 


1.  INPUT  A 2 IF  WORKING 
ON  A DUAL  DRIVE  SYSTEM. 
IF  IT  IS  A TRIPLE  DRIVE 
SYSTEM  INPUT  A 3. 


2.  WHICH  PGM  WOULD  YOU  LIKE  TO  DO  2.  SELECT  THE  DESIRED  PGM 

1 . LIST  EMITTERS  ON  SELECTED  SHIPS  OR  AND  INPUT  ITS  NUMBER. 

AIRCRAFT 

2.  LIST  LAND  BASED  EMITTERS 

3.  LIST  THE  PARAMETERS  OF  SELECTED 
EMITTERS 

4.  MATCH  INTERCEPTED  PARAMETERS  TO 
EMITTERS 


: 
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5.  CHANGE  OR  MODIFY  ' EXCAP ' EA6B  LISTS 

6.  CHANGE  OR  MODIFY  'ICAP'  EA6B  LISTS 

7.  PRINT  A LISTING  OF  THE  DATA  BASE 
8. STOP  WORKING 


Once  loaded,  the  selected  program  will  automatically  start 


running  and  display  a program  header. 


D.  LAND  PROGRAM 

The  LAND  program  will  list  (and  in  the  future-plot)  the 
EOB  for  any  geographical  area  selected  by  the  operator.  The 
following  list  of  displays  and  instructions  will  be  seen 
during  the  execution  of  this  program. 


DISPLAY 


INSTRUCTIONS 


THIS  PROGRAM  WILL  LIST  THE  RADAR  SITES 
LOCATED  WITHIN  THE  GEOGRAPHICAL  BOUN- 
DARIES SET  BY  THE  OPERATOR 


1 . INFORMATION  ONLY 


2.  **ENSURE  THE  LAND  EOB  IS  IN  DRIVE  // 
AND  EPL  IN  DRIVE  # ** 


2.  DO  AS  INSTRUCTED 


3.  ENTER  LAT  OF  LOWER  LEFT  CORNER- ENTER 
AS  DDMMSS* 


3.  ENTER  LAT-  D IS 
DEGREES,  M IS 
MINUTES,  S IS  SECONDS, 
* IS  N OR  S- 


IS  THIS  THE  CORRECT  VALUE 


VERIFY  THE  ENTRY.  IF 
IT’S  CORRECT  ENTER  Y. 


ENTER  LONG  OF  LOWER  LEFT  CORNER. 
ENTER  AS  DDDMMSS*  IS  THIS  THE 
CORRECT  VALUE 


5.  SAME  AS  3 EXCEPT  * IS 
E OR  W. 


6.  ENTER  LAI  OF  UPPER  RIGHT  CORNER. 
ENTER  AS  DDMMSS*  IS  THIS  THE 
CORRECT  VALUE 


6.  SAME  AS  3 


7.  ENTER  LONG  OF  UPPER  RIGHT  CORNER. 
ENTER  AS  DDDMMSS*  IS  THIS  THE 
CORRECT  VALUE 


7.  SAME  AS  5 


8.  YOUR  LOWEST  LAT  EXCEEDS  HIGHEST 
LAT  IN  DATA  BASE 


8.  HAVE  THE  WRONG  EOB  DATA 
DISK.  INSERT  THE  CORRECT 
DISK. 
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9.  YOUR  UPPER  LAT  IS  LOWER  THAN  LOWEST 
LAT  IN  DATA  BASE 

10.  TOTAL  NUMBER  OF  SITES- 


11.  ENTERED  VALUES  WERE 


12.  DO  YOU  WANT  THE  EMITTER  LISTING  TO 
INCLUDE  THE  PARAMETERS  (Y  OR  N) 


13.  DO  YOU  WANT  A HARD  C0PY(Y  OR  N) 


14.  ENSURE  PRINTER  IS  ON.  SELECT  CONT/ 
EXEC  TO  CONT 


15.  PROCESSING  SITE  t OF 


16.  MORE  TO  BE  SEEN.  DEPRESS  EXEC  TO 
CONTINUE 


17.  DO  YOU  WANT  TO 

1 .  PLOT  THE  EMITTERS 

2.  RETURN  TO  THE  BEGINNING  TO  DO 
ANOTHER  AREA 

3. STOP  WORKING 

4.  RETURN  TO  'START'  PROGRAM 

5.  DO  YOU  WANT  A HARD  COPY 

18.  INVALID.  REENTER 


19.  NOT  INSTALLED  AT  THIS  TIME.  SELECT  A 
DIFFERENT  NUMBER 


9.  SAME  AS  8 


10.  TOTAL  NUMBER  OF  SITES 
LOCATED  IN  SEARCH. 

NO  ACTION  NECESSARY. 

11.  THE  SAME  VALUES  YOU 
ENTERED  ARE  PRINTED 
OUT  TO  YOU. 

12.  ENTER  Y IF  YOU  WANT  THE 
SIGNAL  PARAMETERS 
INCLUDED  IN  THE  LISTING. 

13.  IF  A HARD  COPY  IS 
DESIRED  ENTER  Y. 

14.  ENSURE  THE  LINE  PRIN- 
TER IS  ON  AND  SELECTED. 
ENTER  CONT  THEN  DEPRESS 
EXEC  TO  CONTINUE. 

15.  TO  INFORM  YOU  WHICH 
SITE  IS  BEING  PRO- 
CESSED AT  THE  CURRENT 
TIME.  NO  ACTION  RE- 
QUIRED. 

16.  USED  WHEN  THE  CRT  IS 
SELECTED  AS  THE  OUTPUT 
DEVICE. TEN  LINES  OF  DATA 
IS  PRESENTED  AT  ONE  TIME. 
TO  VIEW  NEXT  SECTION 
DEPRESS  EXEC 

17.  DISPLAYED  AFTER  PGM 
EXECUTION.  SELECT  ONE 
OF  THE  OPTIONS  AND 
ENTER  THAT  NUMBER. 


DISPLAYED  WHENEVER  AN 
ILLEGAL  VALUE  IS  EN- 
TERED. REENTER  THE 
CORRECT  VALUE. 

DISPLAYED  WHEN  THE  PLOT 
OPTION  IS  SELECTED  IN 
NUMBER  16  ABOVE. 


If  the  search  phase  must  be  terminated  prior  to  its  com- 
pletion depress  HALT.  To  view  any  sites  that  may  have  been 
located  enter  RUN  810.  Once  terminated,  the  search  phase  may 


not  be  reentered  except  at  the  beginning. 

Once  the  listing  starts,  the  operator  may  change  the  out- 
put device  and/or  the  inclusion  or  exclusion  of  the  signal 
parameters  by: 

a.  Depress  HALT 

b.  Enter  D=0 

c.  Enter  RUN  810 

The  program  may  be  terminated  at  any  point  by  depressing 
HALT  and  entering  RUN  1230. 

E.  MOBILE  PLATFORM 

The  MOBILE  PLATFORM  program  provides  the  planner  the 
electronic  order  of  battle  associated  with  any  desired  mobile 
platform.  The  platform  may  be  an  aircraft,  surface  ship,  sub- 
marine, or  missile.  The  data  base  contains  both  commercial 
and  combatants.  The  CRT  displays  and  instructions  for  this 
program  are  shown  below. 

DISPLAY  INSTRUCTIONS 

1.  THIS  PGM  WILL  PROVIDE  THE  OPERATOR  1.  INFORMATION  ONLY 

THE  EOB  FOR  A GIVEN  SHIP  OR  AIR- 
CRAFT. THE  PLATFORM  IS  IDENTIFIED 

BY  NAME  AND  COUNTRY  CODE 

2.  ENSURE  THE  EOB  DISK  IS  INSTALLED  IN  2.  DO  AS  INSTRUCTED 

DRIVE  If  AND  THE  EPL  DISK  IN  DRIVE 


4.  DO  YOU  WANT  THE  PARAMETERS 
THE  LISTING  ?(Y  OR  N) 

5.  PLATFORM  NAME  IS 


6.  PLATFORM'S  COUNTRY  CODE  IS 


7.  UNIT  NOT  IN  DATA  BASE 


8.  MORE  TO  SEE.  DEPRESS  EXEC 


9.  DO  YOU  WANT  A HARD  COPY  (Y  OR  N) 


10.  DO  YOU  WANT  TO: 

1 .DO  OTHER  UNITS 
2. STOP 

3. RETURN  TO  'START'  PROGRAM 


IN  4.  ENTER  Y TO  INCLUDE  THE 
PARAMETERS 

5.  ENTER  THE  PLATFORM'S 
NAME.  ENSURE  THE 
SPELLING  IS  CORRECT. 

6.  ENTER  THE  TWO  LETTER 
CODE.  THESE  MAY  BE 
FOUND  IN  A DIA  PUB. 

7.  DISPLAYED  WHEN  A 
PLATFORM  IS  NOT  IN  THE 
DATA  BASE  OR  SPELLING 
IS  INCORRECT. 

8.  DATA  IS  PRESENTED  IN 
GROUPS  OF  TEN.  WHEN 
READY  TO  VIEW  NEXT 
GROUP  DEPRESS  EXEC. 

9.  ENTER  Y IF  A HARD  COPY 
IS  DESIRED.  ENSURE  LINE 
PRINTER  IS  ON  AND 
SELECTED. 

10.  DISPLAYED  WHEN  THE  PGM 
HAS  FINISHED  EXECUTING. 
SELECT  ONE  OF  THE 
OPTIONS  AND  ENTER  IT'S 
NUMBER. 


INCLUDED 


F . MATCH 

The  MATCH  program  was  designed  for  post  mission  signal 
identification .The  operator  inputs  the  parameters  of  the 
unknown  signal.  The  computer  then  scans  the  EPL  searching 
for  matches  to  the  inputed  values. 

The  parameters  used  for  matching  are  frequency,  prf  and 


pulse  width.  The  operator  may  match  using  all  three  para- 
meters or  frequency  plus  either  of  the  remaining  two.  The 
CRT  displays  and  instructions  are  shown  below. 


!f 

i 

« 

DISPLAY 

INSTRUCTIONS 

fj 

II 

1. 

THIS  PGM  SEARCHES  THE  EPL  FOR  ALL 
POSSIBLE  MATCHES  TO  PARAMETERS 

SUPPLIED  BY  THE  OPERATOR 

1. 

INFORMATION  ONLY 

2. 

ENSURE  THE  EPL  KEY  FILE  DISK  IS 

INSTALLED  IN  DRIVE  #_ 

2. 

DO  AS  DIRECTED 

3. 

IF  PROPER  DISKS  ARE  INSTALLED,  DEPRESS 
EXEC  TO  CONTINUE 

3. 

DO  AS  DIRECTED 

n 

4. 

DO  YOU  WANT  TO  MATCH  IN: 

1 .  FREQ , PRF , &PW 

2.  FREQ  & PRF 

3.  FREQ  & PW 

4. 

SELECT  ONE  OF  THE 
OPTIONS  AND  ENTER 

ITS  NUMBER. 

5. 

ENTER  FREQ 

5. 

ENTER  A FREQUENCY 

WITHIN  THE  EA6B's 

RANGE.  NEED  NOT  ENTER 
FIVE  DIGITS. 

6. 

FREQ” 

IS  THIS  THE  CORRECT  VALUE  (Y  OR  N) 

?CR-Y? 

6. 

IF  DISPLAYED  VALUE 

IS  CORRECT,  DEPRESS 
EXEC.  IF  INCORRECT, 
ENTER  N. 

7. 

ENTER  PRF 

7. 

ENTER  PRF  UP  TO  9999. 

8. 

PRF” 

IS  THIS  THE  CORRECT  VALUE (Y  OR  N)?CR”Y? 

8. 

SAME  AS  6. 

p 

9. 

ENTER  PW 

9. 

ENTER  PULE  WIDTH  UP 

TO  99.9 

i - 

10. 

PW- 

IS  THIS  THE  CORRECT  VALUE (Y  OR  N)CR”Y? 

10. 

SAME  AS  6 

i 

II 

11. 

TOTAL  MATCHES- 

IF  YOU  NEED  TO  TERMINATE  THE  SEARCH 

MODE  AND  WISH  TO  SEE  THE  MATCHES  MADE, 
ENTER  RUN  830 

11. 

TOTAL  NUMBER  OF  SIGNALS 
MATCHING  ENTERED  PARA- 
METERS. NO  ACTION  RE- 
QUIRED UNLESS  YOU  WISH 

TO  TERMINATE.  IF  SO: 
ENTER  HALT.  ENTER  RUN 
830 


# 

12. 

NO 

MATCH 

FOR: 

FREQ” 

PRF- PW- 

12. 

DISPLAYED  WHEN 
1 WAS  SELECTED 
MATCHES . 

OPTION 
WITH  NO 

13. 

NO 

MATCH 

FOR: 

FREQ” 

PRF- 

13. 

SAME  AS  12  BUT 
OPTION  2 

FOR 

* 

i 

1 1 

14. 

NO  MATCH  FOR:  FREQ-  PW- 

14. 

SAME  AS  12  BUT  FOR 
OPTION  3 

15. 

MORE  TO  COME.  DEPRESS  EXEC  TO  CONTINUE 

15. 

USED  WHEN  LISTING 
MATCHES.  SCREEN  IS 
LIMITED  TO  16  LINES. 

TO  VIEW  NEXT  SECTION 
DEPRESS  EXEC 

16. 

NO  FURTHER  MATCHES.  DEPRESS  EXEC  TO 
CONTINUE 

16. 

DO  AS  INSTRUCTED.  ALL 
MATCHES  HAVE  BEEN 
VIEWED. 

1 

17. 

DO  YOU  WANT  A HARD  COPY(Y  OR  N) 

17. 

ENTER  Y IF  A HARD  COPY 
IS  DESIRED.  ENSURE 

THE  LINE  PRINTER  IS  ON 
AND  SELECTED. 

18. 

DO  YOU  WANT  TO: 

18. 

SELECT  ONE  AND  ENTER 

1. DO  ANOTHER  MATCH  ITS  NUMBER 

2.  RETURN  TO  'START'  PROGRAM 
3. STOP 


G.  EMITTER  PARAMETER (LIST) 

This  program  will  provide  the  mission  planner  with  a 
listing  of  an  emitter's  signals.  The  data  is  retrieved  by 
entering  either  the  emitter's  elint  notation  or  its  NATO 
nickname.  CRT  displays  and  instructions  are  shown  below. 

When  using  the  NATO  nickname,  not  all  of  the  functions 
(e.g.  MC , MG , TT , etc ) of  a single  emitter  will  be  retrieved  if 
each  function  has  a unique  elint  notation.  It  is  recommended 

the  operator  use  elint  notation  for  all  multi-functional 

i 

emitters . 

DISPLAY  INSTRUCTION 

1 . THIS  PGM  WILL  LIST  THE  PARAMETERS  OF  ANY  1 . INFORMATION  ONLY 
EMITTER  SELECTED  BY  THE  OPERATOR.  SELEC- 
TION IS  BY  ELINT  NOTATION  OR  NATO  NICK- 
NAME. 

2.  ** ENSURE  THE  EPL  DISK  IS  INSTALLED  IN  2.  DO  AS  DIRECTED 

DRIVE  # ** 
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3.  DO  YOU  WISH  TO  SEARCH  VIA  NATO 
NICKNAME  OR  ELINT  NOTATION 

1. ELINT 

2.  NAME 


3.  ENTER  EITHER  A 1 OR  2. 


4.  EMITTER  ELINT  NOTATION  IS 


4.  ENTER  THE  FIVE  DIGIT 
ELINT  NOTATION 


5.  MORE  TO  SEE.  DEPRESS  EXEC  TO  CONTINUE 


MORE  DATA  TO  BE  SEEN, 
DEPRESS  EXECUTE  TO 
CONTINUE 


6.  DO  YOU  WANT  A HARD  COPY(Y  OR  N) 


6.  ENTER  Y IF  A HARD  COPY 
IS  DESIRED.  ENSURE  THE 
LINE  PRINTER  IS  ON  AND 
SELECTED. 


7.  DO  YOU  WISH  TO: 

1. SEARCH  FOR  ANOTHER  EMITTER 
2. STOP 

3. RETURN  TO  'START'  PROGRAM 


DISPLAYED  AFTER  PGM  IS 
FINISHED.  SELECT  AN 
OPTION  AND  ENTER  ITS 
NUMBER. 


8.  CHECK  ENTRY.  IF  IT'S  CORRECT, THEN  THE 
EMITTER  IS  NOT  LOCATED  IN  THE  DATA  FILE. 


8.  DISPLAYED 

IF  AN  EMITTER  CAN  NOT 
BE  LOCATED  IN  THE  DATA 
BASE. 


9.  EMITTER  NAME  IS 


9.  ENTER  THE  EMITTER'S 
NATO  NICKNAME 


10.  INVALID. REENTER  10.  ' DISPLAYED  IF  AN  ERROR 

IS  MADE  WHEN  ENTERING 
INFORMATION  FOR  3 AND 
7.  REENTER  THE  RE- 
QUESTED DATA. 


H.  EXCAP  EA-6B  LIST  MANAGEMENT  PROGRAM 

The  EXCAP  (Expanded  Capabilities)  EA-6B  LIST  program  pro- 
vides the  EXCAP  squadron's  Electronic  Warfare  Officer  the 
capability  of  maintaining  three  separate  sets  of  EXCAP  EA-6B 
acquisition  and  CCI  assignment  lists  in  the  computer.  Any  one 
set  may  be  retrieved,  changed,  listed  on  paper,  and  saved, 
without  affecting  the  other  lists.  Any  number  of  hard  copies 
may  be  made.  The  CRT  displays  and  instructions  are  listed 
below.  Only  the  PROGRAMS  disk  is  required  for  this  program. 
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DISPLAY 


THIS  PGM  WILL  ASSIST  THE  EWO  IN 
MANAGING  THE  EXCAP  SQUADRON'S  ACQ 
AND  CCI  ASSIGNMENT  LISTS. 

WHICH  LIST  SET  DO  YOU  WANT  TO  WORK  WITH 

1. WAS 

2.  LAND 

3. ASMD 

DO  YOU  DESIRE  A LISTING  OF  THE  PRESENT 
LISTS  (Y  OR  N) 

DO  YOU  WANT  A HARD  COPY  OF  THE  LISTS 
(Y  OR  N) 


HOW  MANY  COPIES 


6.  DO  YOU  WANT  TO 

1.  ENTER  ALL  NEW  LISTS 

2.  CHANGE  SOME  OF  THE  LISTS 

3.  CHANGE  SELECTED  PARAMETERS  IN 
A SELECTED  LIST 

4. SAVE  WHAT  YOU  HAVE  DONE 
5. STOP 

7.  SAVE  ANYTHING  ????? 


8.  NUMBER  OF  LISTS  TO  BE  ENTERED. 
(<=■40) 


9.  ENTER  FREQ  LO 


10.  ENTER  FREQ  HI 


11.  ENTER  PRFI  LO 


12.  ENTER  PRFI  HI 
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INSTRUCTIONS 
1.  INFORMATION  ONLY 


2.  SELECT  A LIST  SET  AND 
ENTER  ITS  NUMBER 


3.  ENTER  Y TO  VIEW  THE 
SELECT  LIST  SET. 

4.  IF  YES  ENTER  Y.  ENSURE 
THE  LINE  PRINTER  IS  ON 
AND  SELECTED. 

5.  WILL  BE  DISPLAYED  ONLY 
IF  Y WAS  ENTERED  FOR  4. 
ENTER  THE  NUMBER  OF 
COPIES  NEEDED. 

6.  SELECT  AN  OPTION  AND 
ENTER  ITS  NUMBER 


7.  DISPLAYED  IF  OPTION  5 
WAS  SELECTED  IN  ITEM 
6.  THIS  IS  A SAFETY 
FEATURE  IN  CASE  YOU  DID 
WANT  TO  SAVE  YOUR  WORK. 

8.  DISPLAYED  IF  OPTION  1 
IS  SELECTED  IN  6 ABOVE. 
ENTER  ANY  NUMBER  UP  TO 
AND  INCLUDING  40. 

9.  ENTER  ANY  VALID  EA-6B 
VALUE 

10.  ENTER  ANY  VALID  EA-6B 
VALUE 

11.  ENTER  ANY  VALID  EA-6B 
VALUE 


12. 


ENTER  ANY  VALID  EA-6B 
VALUE 


, 


13. 

ENTER  PRF  2 LO 

13. 

ENTER  ANY 
VALUE 

VALID  EA-6B 

14. 

ENTER  PRF  2 HI 

14. 

ENTER  ANY 
VALUE 

VALID  EA-6B 

15. 

ENTER  LTIFN 

15. 

ENTER  ANY 
VALUE 

VALID  EA-6B 

16. 

ENTER  SPRI 

16. 

ENTER  ANY 
VALUE 

VALID  EA-6B 

17. 

ENTER  TBKSF 

17. 

ENTER  ANY 
VALUE 

VALID  EA-6B 

18. 

ENTER  TTMB 

18. 

ENTER  ANY 
VALUE 

VALID  EA-6B 

19. 

WHICH  LIST  DO  YOU  WISH  TO  CHANGE 
(1T030.41T049) 

19. 

DISPLAYED  IF  OPTION  2 

IS  SELECTED  IN  6 ABOVE. 
ENTER  THE  NUMBER  OF  THE 
LIST  YOU  WISH  TO  CHANGE. 

20. 

DO  YOU  WISH  TO  CHANGE  ANOTHER  LIST 
(Y  OR  N) 

20. 

DISPLAYED 
SELECTED 
AFTER  THE 

IF  OPTION  2 IS 
IN  6 ABOVE,  AND 
LIST  SELECTED 

IN  19  IS  ENTERED.  ENTER 
Y IF  YOU  WANT  TO  CHANGE 
ANOTHER  LIST. 


21.  DO  YOU  WANT  TO 
1 . STOP 

2.  RETURN  TO  THE  'START'  PROGRAM 

3.  RETURN  TO  THE  BEGINNING  OF  THIS 
PROGRAM 


21.  SELECT  ONE  OF  THE  OPTIONS 
AND  ENTER  ITS  VALUE. 


22.  INVALID, REENTER 


22.  AN  ERRONEOUS  VALUE  WAS 
ENTERED.  ENTER  A 
CORRECT  VALUE. 


23.  TO  CONTINUE  DEPRESS  EXEC 


23.  DISPLAYED  WHEN  THE 

LISTS  ARE  BEING  VIEWED 
ON  THE  CRT.  THE  LISTS 
ARE  PRESENTED  IN  GROUPS 
OF  TEN.  TO  VIEW  NEXT  SET 
DEPRESS  EXEC. 


24.  WHICH  LIST  DO  YOU  WISH  TO  WORK  WITH 


24.  DISPLAYED  IF  OPTION  3 
IN  ITEM  6 WAS  SELECTED 
ENTER  THE  LIST  # YOU 
WISH  TO  WORK  WITH 
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anii  i 


25.  WHICH  PARAMETER  DO  YOU  WISH  TO  CHANGE 

1. RF  LOW 

2. RF  HIGH 

3. PRF  1 LOW 

4. PRF  1 HIGH 

5. PRF  2 LOW 

6. PRF  2 HIGH 

7. LTIFN 
8.SPRI 

9. TBKSF 

10. TTMB 

11.  NO  OTHERS 


I.  ICAP  EA-6B  LIST  MANAGEMENT  PROGRAM 

This  program  is  identical  to  the  EXCAP  EA-6B  LIST  MANAGE- 
MENT program  except  it  is  designed  for  use  with  ICAP  (improved 
capabilities)  lists.  The  details  as  stated  in  section  H 
(EXCAP  LIST  MANAGEMENT)  are  germaine  for  this  program.  The 
displays  and  instructions  that  are  different  than  those  listed 
in  section  H are  shown  below.  The  WSC  entry  was  left  out  since 
it  changes  from  flight  to  flight. 

DISPLAY  INSTRUCTIONS 


1. 

THIS  PGM  WILL  ASSIST  THE  EWO 
MANAGING  THE  ICAP  SQUADRON'S 

IN 

LISTS. 

1. 

INFORMATION  ONLY 

2. 

ENTER  FTP 

2. 

ENTER  ANY 
VALUE 

VALID 

ICAP 

3. 

ENTER  SITE 

3. 

ENTER  ANY 
VALUE 

VALID 

ICAP 

4. 

ENTER  SYM 

4. 

ENTER  ANY 
VALUE 

VALID 

ICAP 

5. 

ENTER  PRI 

5. 

ENTER  ANY 
VALUE 

VALID 

ICAP 

6. 

ENTER  S 

6. 

ENTER  ANY 
VALUE 

VALID 

ICAP 

7. 

ENTER  FT 

7. 

ENTER  ANY 
VALUE 

VALID 

ICAP 

8.  ENTER  TBK 


: 


1 1 


8.  ENTER  ANY  VALID  ICAP 
VALUE 

9.  WHICH  PARAMETER  DO  YOU  WISH  TO  CHANGE  9.  SELECT  THE  PARAMETER 

1. RF  LOW  YOU  WISH  TO  CHANGE 

2. RF  HIGH  AND  INPUT  ITS  NUMBER 

3. PRF  1 LOW 

4. PRF  1 HIGH 

5. PRP  2 LOW 

6. PRF  2 HIGH 
7. SITE 
8.SYM 
9.PRI 

10. S 

11.  FT 

12.  TBK 

13.  NO  OTHERS 


There  is'  only  one  set  of  data  files  available  for  use 
with  the  list  management  programs . Therefore,  an  EXCAP 
squadron  should  not  attempt  to  use  the  ICAP  LIST  MANAGEMENT 
program.  Likewise,  a ICAP  squadron  should  not  attempt  to 
use  the  EXCAP  LIST  MANAGEMENT  program. 

J.  HULTEC  PROGRAM 

The  HULTEC  program  provides  the  EWO  a convenient  means  of 
maintaining  an  up  to  date  TIULTEC  data  file.  A maximum  of 
fifty  lines  of  data  may  be  resident  in  the  data  file  at  any 
one  time.  Each  data  line  consists  of  an  emitter's  name, 
frequency,  associated  platform,  PRF , PRI  interval,  scan  period 
pulse  width,  and  NTDS  key  file  number.  Each  line  may  be 
changed  in  its  entirety  or  selectively. 

The  operator  may  list  the  entire  data  file  or  list  those 
data  lines  with  a particular  platform  or  emitter.  Unlimited 
hard  copies  of  the  listings  may  be  made. 
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Leading  zeros  should  be  used  for  each  numerical  entry 
The  data  file  is  sorted  in  ascending  frequency  order.  If 


leading  zeros  are  not  used,  the  resultant  file  will  not  be  in 
ascending  order.  Also,  the  values  will  be  left  justified. 
With  leading  zeros,  these  problems  do  not  exist.  The  leading 
zeros  will  not  appear  in  the  printout. 

The  CRT  displays  and  instructions  are  shown  below.  Only 
the  PROGRAMS  disk  is  required  for  this  program. 


DISPLAY 

1.  THIS  PGM  PROVIDES  A CONVENIENT  MEANS 
OF  MAINTAINING  AN  UP  TO  DATE  HULTEC 
FILE. 

2.  DO  YOU  WISH  TO  LOOK  AT  THE  ENTIRE 
FILE  AT  THIS  TIME  (Y  OR  N) 


3.  MORE  TO  SEE.  DEPRESS  EXEC  TO  CONT 


4.  DO  YOU  WISH  TO: 

1. CHANGE  AN  ENTRY 

2. OBTAIN  A HARD  COPY  OF  THE  CURRENT 
FILES 

3. SAVE  WHAT  YOU  HAVE  DONE 
4. LI ST  THE  FILES 

5. SEARCH  FOR  A PARTICULAR  PLATFORM 
6. SEARCH  FOR  A PARTICULAR  EMITTER 
7. RETURN  TO  THE  START  PGM 
8. STOP 

5.  WHICH  LINE  DO  YOU  WISH  TO  CHANGE 


6.  DO  YOU  WISH  TO  CHANGE 

1 .ALL  VALUES 
2. SELECTED  VALUES 

7.  ENTER  RF 


INSTRUCTIONS 

1.  INFORMATION  ONLY. 

NO  ACTION  REQUIRED. 


2.  IF  YOU  WISH  TO  SEE  THE 
DATA  FILE  STORED  ON  THE 
DISK  ENTER  Y. 

3.  DATA  IS  PRESENTED  IN 
GROUPS  OF  10.  WHEN 
READY  TO  VIEW  NEXT 
GROUP  DEPRESS  EXEC. 

4.  SELECT  AN  OPTION  AND 
ENTER  ITS  NUMBER. 


5.  ENTER  THE  LINE  NUMBER 
(BETWEEN  1 AND  50) 

TO  BE  CHANGED. 

6.  SELECT  AN  OPTION  AND 
ENTER  ITS  NUMBER. 


7.  ENTER  A FIVE  DIGIT 
VALUE.  USE  LEADING 
ZEROS . 


8.  ENTER  PRF 


I 


9.  ENTER  PRI  1 

10.  ENTER  PRI  2 

1 1 . ENTER  PW 

12.  ENTER  SCAN  PERIOD 

13.  ENTER  PLATFORM'S  NAME 

14.  ENTER  EMITTER'S  NAME 


8.  ENTER  A VALUE  OR  DEPRESS 
EXEC. 

9.  ENTER  A VALUE  OR  DEPRESS 
EXEC. 

10.  ENTER  A VALUE  OR  DEPRESS 
EXEC  i 

11.  ENTER  A VALUE  OR  DEPRESS 
EXEC. 

12.  ENTER  A VALUE  OR  DEPRESS 
EXEC. 

13.  ENTER  A VALUE  OR  DEPRESS 
EXEC . 

14.  ENTER  A VALUE  OR  DEPRESS 
EXEC. 


15. 

ENTER  NTDS  KEY 

NUMBER 

15. 

ENTER  A VALUE  OR  DEPRESS 
EXEC. 

16. 

WHICH  VALUE  DO 
SELECT  ONE 

YOU  WISH  TO  CHANGE? 

16. 

SELECT  AN  OPTION  AND  ENTER 
ITS  NUMBER. 

1. RF 

2.  PRF 

3.  PRI  1 

4.  PRI  2 

5. PW 

6. SCAN  PERIOD 

7.  PLATFORM'S  NAME 

8.  EMITTER'S  NAME 

9. NTDS  KEY  NUMBER 

10.  NO  OTHERS 


I 

i 

17. 

PRINTER  ON  AND  SELECTED? 

DEPRESS  EXEC  TO  CONT. 

17. 

DO  AS  INSTRUCTED 

1 

18. 

HARD  COPY  DESIRED  (Y  OR  N) 

18. 

ENTER  Y IF  HARD  COPIES 
ARE  DESIRED 

19. 

NUMBER  OF  COPIES 

19. 

ENTER  THE  NUMBER  OF 
COPIES  DESIRED 

20. 

TODAY'S  DATE  IS 

20. 

ENTER  THE  CURRENT  DATE 
AS  MM/DD/YY 

1 

21. 

ENTER  PLATFORM’S  NAME 

21. 

ENTER  THE  PLATFORM'S 
NAME  THAT  YOU  WISH  TO 
HAVE  THE  DATA  ON 
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*; 

1 

22. 

NO  PLATFORM  WITH  THAT  NAME 

CM 

CM 

WRONG  SPELLING,  SPACING, 
OR  PLATFORM  IS  NOT  IN 

DATA  FILE. 

23. 

ENTER  EMITTER'S  NAME 

23. 

ENTER  THE  EMITTER'S 

NAME  THAT  YOU  WISH  TO 

’ 

HAVE  THE  DATA  ON 

24. 

NO  EMITTER  WITH  THAT  NAME 

24. 

WRONG  SPELLING,  SPACING, 
OR  EMITTER  IS  NOT  IN  DATA 
FILE 

K.  PRINT  PROGRAM 

The  PRINT  program  will  provide  to  the  operator  a listing 
of  the  key  elements  of  each  data  base.  For  the  EPL,  this 
listing  contains  the  elint  notation,  NATO  Nickname,  function 
code,  and  comments  of  each  emitter.  A mobile  platform's  name 
and  its  country  code  will  be  listed  from  the  Mobile  EOB. 

While  for  the  Land  EOB,  each  site's  latitude,  longitude,  and 
country  code  will  be  listed. 

The  CRT  displays  and  instructions  for  this  program  are 
shown  below.  The  programs  disk  is  installed  in  drive  number 
one  and  the  appropriate  data  disk  in  drive  two. 


DISPLAY 


INSTRUCTIONS 


WHICH  DATA  FILE  DO  YOU  WISH  TO  WORK 

1.  ENTER  THE  DESIRED 

WITH 

NUMBER 

1 . EPL 

2. MOBILE  EOB 

3. LAND  EOB 

i 

i 


2.  ENSURE  THE  APPROPRIATE  DATA  DISK  IS 
INSTALLED  IN  DRIVE  TWO,  AND  THE  LINE 
PRINTER  IS  ON  AND  SELECTED.  DEPRESS 
EXEC  TO  CONTINUE. 


2.  ENSURE  THE  CORRECT 

DATA  DISK  IS  INSTALLED 
AND  THE  LINE  PRINTER 
IS  ON  AND  SELECTED. 
DEPRESS  EXEC. 


If  ERR  80  occurs  after  step  two,  the  data  disk  in  drive 
two  and  that  selected  in  step  one  above  do  not  agree.  In- 
sert the  correct  disk  and  enter  RUN. 


L.  KEY  FILE  INITIALIZATION 


The  Key  File  is  an  integral  part  of  the  WANG  KFAM-3  data 
management  system  used  in  the  EA-6B  Mission  Planning  Programs. 
The  various  key  files  used  in  these  programs  are  established 
by  NEEO  prior  to  the  squadrons  receiving  the  data  file. 

The  Initialize  KFAM  File  and  Key  File  Creation  utility 
programs  from  the  KFAM-3  ISS  Utilities  /” 5 _7  package  are  used 
to  create  the  four  key  files  used  in  the  mission  planning 
programs.  The  EPL  data  file  has  three  separate  associated 
key  files  and  the  Mobile  EOB  data  file  has  one.  The  Land 
EOB  file  does  not  have  a key  file. 

To  conform  to  KFAM-3  name  requirements,  the  Land  EOB 
library  is  entitled  E0B2F1  (even  though  it  has  no  key  file) . 
The  Mobile  EOB  library  is  entitled  E0B1F1  while  the  EPL 
library  is  called  EPL1F1. 

The  following  information  is  required  by  the  Initialize 
Key  File  utility.  The  data  disk  is  installed  in  drive  two. 

All  key  files  except  EPL1K3  are  built  on  their  respective 
data  disk.  Because  of  its  size,  the  EPL1K3  file  is  built 
a separate  disk. 


a) 

User  file  name 

EPL1F1 

EPL1F1 

EPL1F1 

EOB IF 1 

b) 

Device  address  for  user 
file 

BIO 

BIO 

BIO 

BIO 

c) 

Data  file  catalogued 

Yes 

Yes 

Yes 

Yes 

d) 

Key  file  number 

1 

2 

3 

1 

e) 

Device  address  for 
keyf ile 

BIO 

BIO 

BIO 

BIO 

f) 

Record  type 

A 

A 

A 

A 

g) 

Logical  record  length 

63 

63 

63 

63 

h) 

Blocking  factor 

4 

4 

4 

4 

i) 

Key  length 

5 

12 

21 

17 

j) 

Starting  position  of  key 

3 

12 

3 

4 

k) 

Estimated  number  of 
records 

Notel 

Note2 

Note  2 

Note2 
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NOTE  1:  Use  the  total  number  of  elint  notation's 
in  the  data  base. 

NOTE  2:  Multiply  the  User  File  size  by  four  then 
subtract  eight. 

The  information  required  by  the  Key  File  Creation  utility 
may  be  obtained  from  that  listed  previously  for  the  Initialize 
Key  File  Utility. 

Duplicate  key  errors  will  be  generated  when  constructing 
EPL1K1  and  EPL1K2 . To  decrease  the  time  required  for  building 
the  key  files,  the  print  instructions  in  line  6960  in  the 
creation  utility  should  be  deleted.  Line  6194  should  be 
modified  to  select  the  CRT  instead  of  the  line  printer. 

The  data  base  format  has  been  standardized  to  that 
described  in  Section  IV  B of  this  report.  Any  deviation  from 
this  format  may  render  the  programs  useless. 
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10F.EM  START  PGM  FOR  EA6B  MSN  PLANNING  #S  OF  2-5-7°  BY  LT  S.W. 
SMITH,  USN 

20  PRINT  REX (0 3 ) : COM  D1 

30  INPUT  "ARE  YOU  WORKING  ON  A 2 OR  3 DRIVE  SYSTEM", E 
40  IF  B-2THEN  50:D1-1:GOTO  60 
50  Dl-2 

60  PRINT  HEX (0 3 ) 

70  PRINT  "WHICH  PGM  WOULD  YOU  LIKE  TO  DO" 

80  PRINT  " 1 .LIST  EMITTERS  ON  SELECTED  SHIPS  OR  AIE.CRAF 

l£lt 

90  PRINT  " 2. LIST  LAND  BASED  EMITTERS" 

100  PRINT  " 3. LIST  THE  PARAMETERS  OF  SELECTED  EMITTERS" 

110  PRINT  " 4. MATCH  INTERCEPTED  PARAMETERS  TO  EMITTERS" 

120  PRINT  ” 5. CHANGE  OR  MODIFY  ’EXCAP’  EA6B  LISTS" 

130  PRINT  " 6. CHANGE  OR  MODIFY  'ICAP'  EA6  B LISTS" 

140  PRINT  " 7. PRINT  A LISTING  OF  THE  DATA  BASE" 

150  PRINT  " 8. WORK  WITH  THE  HULTEC  PGM" 

160  PRINT  " 9. STOP  WORKING" 

170  INPUT  A 

180  ON  A GOTO  200,210,250,220,230,240,260,270,280 
190  PRINT  "INVALID.  REENTER"  :GOTO  70 
200  LOAD  DC  F "MOBILE" 

210  LOAD  LC  F "LAND" 

220  LOAD  DC  F "MATCH" 

230  LOAD  DC  F "EA6  XLST" 

240  LOAD  DC  F "EA6  ILST" 

250  LOAD  DC  F "L  EMIT" 

260  LOAD  DC  F "PRINT" 

270  LOAD  DC  F "HULTEC 1 " 

280  STOP 


START 


I 


I A PROGRAM  SELECTION  VARIABLE 

B NUMBER  OF  DISK  DRIVES  INPUT  VARIABLE 
D1  COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES 


I 


this  page  IS  best  quality  practicable 

LAND  PROA  COPY  PUKMISHED  TO  DDC  


10  REM  LAND  PROGRAM  DEVELOPED  BY  LT  S . W. SMITH, USN, 2/12/ 79 
20  PRINT  HEX (03): COM  D1 

30  PRINT  TAB (4) ; "THIS  PGM  WILL  LIST  THE  RADAR  SITES  LOCATED 
WITHIN  THE" : PRINT  TAB ( 9 ); "GEOGRAPHICAL  BOUNDARIES  SET  BY  THE 
OP  ERATO  R" 

40  IF  D1-1THEN  50:PRINT  HEX (OAOA) ; "**ENSURE  THE  LAND  EOB  IS 
IN  DRIVE  ifl  AND  EPL  IN  DIRVE  #2":G0T0  410 

50  PRINT  HEX (OAOA) : "** ENSURE  THE  LAND  EOB  IS  IN  DRIVE  # 2 AND 
EPL  IN  DRIVE  //  3**":  GOTO  410 
60  COM  A2$(100)62,A3$ (15)62, A$(4)62 
70  COM  0$(2)64,Q5$64,Q7$1 
80  COM  U1$(1)7,U2$(1)7,B1$(1)8,B2$(1)8 
90RETURN 

lOOCOM  V7$8,T0$7,V9,V0$(3)2,T1(3): COM  V0$2 ,V1$8 ,V2$2 ,V3$2 ,V4 
$2,V6$l:COM  Q2 $ 2 , Q 3$ 2 , V5 $ 1 , VS$ 1 , T5$ 30 , T7 $ 30 : COM  T0,T9,T2$2,T 
4$3,T2,V8,T8,T1,T8$1,T2$(8)2,T(8) :C0M  T4 ,T5,V6 ,V7 ,V1 
110COM  0 , Q$ 1 , T9$ 2 , T0$  (4 ) 60 

120COM  T6$1,T3$3,T1$ (1)2, T3$ (1)33,V9$2,T1$30 

130ADDC  (V9$  , V0$  ) :DATA  LOAD  DA  T#T1,  (V9$,V9$)T9$,T0$  O : RETt’PN 


14002-99 

150V9S-T2S :FOR  T3-T0T0  1STEP  -lsGOSUB  1 30 : T2 $ ( T 3 ) -T9 $ : VAT  ST 
ARCHT0$  ()  [ 1 , V7 ] , ] STR (Tl$  , 1 , T4)  TO  Tl$()STr?  T5  : T-VAL  (FTP.  (Tl$  ( 
1 ) , 2) ) -T5 : IF  T ] OTHEN  160:T-V1 

160MAT  COPY  TOS () f T,T5 ] TO  T3$ ( ) : V9S-STR (T3$ ( 1) , T4+1 , 2) : IF  02 
[ 99THEN  190 

1?0T(T3)-T:NEXT  T3 : T7$-T1$ : V-2 : IF  S TP (Tl$ , 1 , T4 ) -STR CT3$ (1 ) , 1 
, T4 ) THEN  180 :V»3 
1 PORETURN 

190MAT  COPY  T0$ ( ) [ VI , 1 ] TO  T1$():IF  Tl$ (1) -HEX (FF) THEN  20G:Q2 
-Q2+1 : GOTO  170 
200Q2-0 : GOTO  170 

210T4-VAL (STR(V1$,5)):T5-T4+3:V6*VAL(STR(V1$,6)) :V7-T5*V6:V1 
-V7-T5  + 1 .'RETURN 

220Q$-"  " : IF  T6 [ 1THEN  400: IF  T6-T9THEN  90 
230GOTO  400 

240DATA  SAVE  DA  T$  It T1 , (V0$  , V9$  ) Q2$  , Q3$  , V5$  , V8$  , V0$  , Vl$  , V2$  , V 
3$  ,V6$ ,T2$ ,T0,T1,T2,Y8,T4$ ,T5$ ,T7$,T2S () ,T() , T8$ : RETURN 
250DATA  LOAD  DA  T#T1  (T9 ) , (V0$ (T9 ) , V9$ ) 02$ , Q 3$ , V5$ , V8$ , V0$ , VI 
$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$() ,T() ,T8$:RETU 
RN 


2 6 0T6-VAL  (T4$  ) *256+VAL  (STR(T4$,2))  : D BACKS  P AC  E '?T2,BE0  :IF  T6 
-OTHEN  2 70  : DSKIP  //T2.T6S 
2700-VAL(STR(T4$, 3) ) :Q$ ,T8$-"  RETURN 

2 80DEFFN ’ 2 32  (T6.T7.T1S)  :GOSUB  220:IF  Q$]"  "THEN  90:COSUB  140 
:T4$-STR(T3$(1)  ,T4+1,3)  :T8$-"2":IF  V[]2TKEM  380.-IF  T4$ ] HEX  (F 
F) THEN  380:G0SUB  260:RETURN 

290DEFFN  f230(T6,T7,02,03,V7$) :IF  T6 [ 1THEN  390:1?  t6 ] 3TUFN  3° 
0 : IF  V9 ] OTHEN  330: INIT(FF)V0$ () : INIT(00)T0$ 

300 IF  STR(T0$ ,T7+1,1) ]HFX(00)THEN  390:IF  STF (T0$ , 02+1 , 1 )] HEX 
(00 ) THEN  390 : IF  Q 2-T7THEN  390 

310DATA  LOAD  DC  OPEN  T* 02  , V7$  : STR  (V7$  , 5 , 1 ) -"K" : ''0'TVrP?  03TO 
STR  (V7$,6,l)  , (if):  LIMITS  TFT7  , V7$  , T , V , T3  : V- INT  (T/ 25  6 ) : B T N M;o$ 
)«V : BIN (STR (VOS , 2) ) -T-256*Y: T9-T6 : VOS (T9) -VOS :T1 (T9 ) -T7 : CO SU 


B 250 :G0SU3  210 : VOS-VOS (T9 ) : T1-T7 : T2-02 

320STR(TO$  T 7+1,1) -HEX (01) : STR (T0$ , 02+1 , 1 ) -HFX '01 ) :"9-V9+l:0 
":T8S-fi0": RETURN 

330IF  V0$ (T6) fHEX(FF)THEN  390:IF  T9-0TRFN  300:GOSUF  240:T9-Q 
: COTO  300 

340DEFFN’239 (T6) : IF  T9-0THEN  350:G0SUB  240:T9-o 
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3501?  V9-0THEN  390:IF  V0$ (T6 )] HEX (FF) THEN  390 : T9-T6 : GOSUB  25 
0 

360T9-0:INIT(FF)V0$(T6) : STR (T0$ , Tl+1 , 1 ) , STR (T0$ , T2+1 , 1 ) -HEX ( 

00)  :V9-V9-1:Q$-"  " : RETURN 

370T8$-"N" 

380Q$-"N": RETURN 
390T8$-"X" 

400Q$-"X":  RETURN 

410  PRINT  HEX(OAOAOA) ;TAB(15) ; "DEPRESS  EXEC  TO  CONTINUE" : INP 
UT  D : IF  D1-1THEN  420:LIMITS  F"E0B2F1" , Al , A2 , A3 : GOTO  430 
420  LIMITS  R"E0B2F1",A1 , A2 , A3 
430  T-Al+(A3-2) :H-T-1: J-H 

440  GOSUB  •200("000000N","900000S", 8,0, "ENTER  LAT  OF  LOVER  L 
EFT  CORNER. ENTER  AS  DDMMSS*  " , 2 ) : Ul$-Q6$ : PRINT  "LOWER  LEFT  L 
AT-";U1$: INPUT  "IS  THIS  THE  CORRECT  VALUE? (Y  OR  N)",C$:IF  C$ 
-"N"THEN  440 

450  GOSUB  ’2OO("O0O0OO0E","180O00OW", 9.0, "ENTER  LONG  OF  LOWE 
R LEFT  CORNER. ENTER  AS  DDMMSS*  " , 2 ) : B1 $ -Q6 $ : PRINT  "LOVER  LEF 
T LONG-"; Bl$ : INPUT  "IS  THIS  THE  CORRECT  VALUE?  (Y  OR  N)",C$:I 
F C $-"N"THEN  4 50 

460  GOSUB  ’200("OO0OOON","90OOQOS", 8,0, "ENTER  LAT  OF  UPPER  R 
IGHT  CORNER. ENTER  AS  DDMMSS*  " , 2 ) : U2 S-Q6 $ : PRINT  "UPPER  RIGHT 
LAT-";U2$ : INPUT  "IS  THIS  THE  CORRECT  VALUE? (Y  OR  N)",C$:IF 
C$-"N"THEN  460 

470  GOSUB  ,200("OOOOOOOE","1800000W", 9,0, "ENTER  LONG  OF  UPPE 
R RIGHT  CORNER. ENTER  AS  DDMMSS*  " , 2) : B2$-Q6$ : PRINT  "UPPFR  RI 
GHT  LONG-"; B2$ : INPUT  "IS  THIS  THE  CORRECT  VALUE?  (Y  OR  N)",C$ 
: IF  C $- "N"THEN  470 

480  IF  D1-1THEN  490:DATA  LOAD  DA  F (Al , S ) A$ ( ) : GOTO  500 
490  DATA  LOAD  DA  R(A1,S)A$() 

500  FOR  K-1TO  4 

510  IF  Ul$ ] STR  (A$ (K) ,2 , 7)THEN  530 
520  GOTO  740 
530  NEXT  K 

540  IF  D1-1THEN  550:DATA  LOAD  DA  r (H , S ) A$ ( ) : GOTO  560 
550  DATA  LOAD  DA  R(H,S)A$() 

560  FOR  K-1TO  4 

570  IF  Ul$ ] STR (A$ (K) ,2,7)THEN  590 
580  GOTO  610 
590  NEXT  R 

600  PRINT  HEX(OAOA) JPRINT  "YOUR  LOWER  LAT  EXCEEDS  HIGHEST  LA 
T IN  DATA  FILE" :PRINT  HEX ( OAOA) : GOTO  820 
610  M- INT ( (Al+H) / 2 ) 

620  IF  D1-1THEN  630:DATA  LOAD  DA  F (M , S ) A$ ( ) : GOTO  640 
630  DATA  LOAD  DA  R(M,S)A$() 

640  FOR  K-1TO  4 

650  IF  Ul$ ] STR (A$ (K) ,2, 7) THEN  690 
660  H-M 

670  IF  H-A1THEN  750 
680  GOTO  480 
690  NEXT  K 
700  Al-M 

710  IF  Al-JTHEN  1240 
720  IF  Al-H-1  THEN  740 
730  GOTO  480 

740  IF  U2$ 1 STR(A$ (1) ,2, 7) THEN  750:PRINT  "YOUR  HIGHEST  LAT  [ 
LOWEST  LAT  IN  DATA  BASE" : PRINT  REX  (OAOA) : GOTO  820 
750  IF  D1-1THEN  760:DATA  LOAD  DA  F (S , S ) AS ( ) : GOTO  770 
760  DATA  LOAD  DA  R(S,S)A$() 

770  FOR  K-1TO  4:IF  U 1$ ] STR (A$ (R) , 2 , 7 ) THEN  790:IF  B1$]STR(A$( 
K)  ,9,8) THEN  790:IF  U 2$ T STR (AS (K) , 2 , 7 ) THEN  810:IF  B2$[STR(A$( 
K)  ,9,8) THEN  790 
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C1-C1+1:A2$ (Cl)-A$ (K) :REM  *IF  ERR  18  OCCURS  ENTER  RUN810 


VALUES  WERE; 


870 


780 

* 

790  NEXT  K 
800  GOTO  750 

810  PRINT  "TOTAL  NUMBER  OF  SITES-"; Cl 
820  IF  Cl ] OTHEN  850:PRINT  ; PRINT  "ENTERED 
830  PRINT  U1$,U2$ 

840  PRINT  B 1$ , B2$  : PRINT  : GOTO  1230 
850  IF  D1-1THEN  860:SELECT  #1B10 , #2B10 ;GOTO 
860  SELECT  #1350, #2350 
870  GOSUB  *230(1,1, 2, 1,"EPL1F1") 

880  INPUT  "DO  YOU  WANT  THE  EMITTER  LISTING  TO 
RAMETERS  (Y  OR  N)",E$ 

890  INPUT  "DO  YOU  WANT  A HARD  COPY(Y  OR  N)",C$ 

900  IF  C$-"N"THEN  960 

910  STOP  "ENSURE  PRINTER  IS  ON.  SELECT  CONT/EXEC 
LECT  PRINT  215 :C$«"Y" 

920  PRINT  "TOTAL  NUMBER  OF  SITES-";C1 
930  PRINT  "ENTERED  VALUES  WERE:" 

940  PRINT  U1$,U2$ 

950  PRINT  B1$,B2$ 

960  FOR  W-1T0  Cl  : REM  INDEXING  THRU  LOCATIONS 
970  PRINT  HEX (OAOA) : IF  C$-"Y"THEN  980:PRINT  "PROCESSING  SITE 
#" ; W; "OF" ; Cl 
980  L 3-2 1 

990  IF  STR(A2$ (W) ,L3,5)-"  "THEN  1130:REM  END  OF  ELINT  NUMBER 


INCLUDE  THE  PA 


TO  CONT" : SE 


PLATFORM  CARDtREM  ***IF  ERR  18  OCCURS  ENTER  RUN  118 

M4$-STR(A2$ (W) , L3 , 5)  ; REM  M4S-ELINT  NOTATION 
GOSUB  *232(1, 0, M4$) :REM  FINDOLD 
IF  0$[]"  "THEN  1110: REM  NO  MATCH 
DATA  LOAD  DC  #2,A$ () 

D-D+l  : A3$  (D)-A$  (Q)  : IF  E$«"N"  THEN  HOOtlF  Q-4THEN  1090 
FOR  K-Q  TO  4 

IF  A3$ (D)-A$ (K)  THEN  1070 : D-D+l : A3$ (D ) «A$ (K) 

IF  STR(A$ (K) , 6,1)- "-"THEN  1100 
NEXT  K 

Q-l : DATA  LOAD  DC  #2,A$():GOTO  1050 
L3-L3+5 : IF  L3]59  THEN  1130:GOTO  990 

D-D+l :A3$(D)-STR(M4$,1,5): STR (A3$(D) ,10,9)-"  NO  MATCH" 
L3-L3+5 : IF  L 3 [ 5 9THEN  990 

PRINT  : PRINT  "SITE  # ";W:PRINT  "LAT : " ; STR (A2$ (W) , 2 , 7 ) : P 
"LONG: " ; STR(A2$ (W) ,9,8) : PRINT  "FCN  CODE STR (A2 $ 


S ON 
( )*** 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
RINT 

(W) ,61,2)  

1140  PRINTUSING  1340:PRINT  A3$(1):IF  E$«"N"THEN  1150:PRINTUS 
ING  1360 

1150  IF  D-1THEN  1200:F0R  I-2TO  D : PRINT  A3$(I):IF  STR(A3$(I), 
6 , 1)  [ ] "-"THEN  1160 -.PRINT 
1160  IF  C$-"Y "THEN  1190 
1170  IF  1-6  THEN  1180:IF  I-16THEN 
-36  THEN  USOsGOTO  1190 

1180  PRINT  HEX(OA) : INPUT  "MORE  TO 
1190  NEXT  I 
1200  IF  C$»"Y"THEN  1220 

1210  INPUT  "MORE  TO  BE  SEEN. DEPRESS  EXEC",0 
1220  D-0 : NEXT  W 

1230  SELECT  PRINT  005 : C$-"N" : E$-"N" : PRINT  HEX(OAOA) : INPUT  "N 
0 MORE  TO  BE  SEEN.  TO  CONTINUE  DEPRESS  EXEC",F 
1240  PRINT  "DO  YOU  WANT  TO" 

PRINT  " 1 . PLOT  THE  EMITTERS" 

PRINT  " 2. RETURN  TO  THE  BEGINNING  TO  DO  ANOTHER  ARE 


:PRINT  "COUNTRY  CODE : " ; STR (A2$ (W) , 1 7 , 2 ) 


11 80 : IF  I-26THEN  1180:IF  I 
SEE,  DEPRESS  EXEC",G 


1250 

1260 

A" 

1770 


PRINT 


3. STOP  WORKING" 
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1280  PRINT  " 4. RETURN  TO  'START'  PROGRAM" 

1290  PRINT  " 5. DO  YOU  WANT  A HARD  COPY" 

1300  INPUT  E 

1310  ON  E GOTO  1330,1370,1370,1370,910 
1320  PRINT  "INVALID. REENTER" : GOTO  1240 
1330  REM  PLOT  ROUTINE : PRINT  "NOT  INSTALLLED  AT  THIS  TIME  SEL 
ECT  A DIFFERENT  NUMBER" : GOTO  1240 

1340  ZELINT  MC  NATO  NAME  FC  NTDS  COMMENTS 
1350  ZLAT/LONG  FCCC 

1360  ZELINT  MC  RFLO  RFH I PRFLO  PRFHI  PWLO  PWHI  MT  SCTYP  S 
PL  SPU 

1370  GOSUB  ’239(1) :D,C1-0:IF  E-2THEN  420:IF  E-3THEN  1400 
1380  IF  D1-1THEN  1390:INPUT  "INSTALL  PGMS  DISK  IN  DRIVE  #1, 
DEPRESS  EXEC  TO  CONTINUE", D 
1390  LOAD  DC  F"START" 

1400  STOP 

1410  DEFFN ’ 200 (Q$ (1) , Q$ (2) ,Q3,Q4 ,Q5$ ,Q5) 

1420  SELECT  PRINT  005 (64) : PRINT  H EX (0 3010A) ; Q5$ ; TAB ( 6 3 ) : PRIN 
T " ? " ; : FOR  Q3-1TO  Q3:PRINT  NEXT  Q8:  IF  Q5-2THEN  1430:P 

RINT  " / " ; : I F Q4-0THEN  1430:FOR  08-1T0  Q4:PRINT  "-";:NEXT  08 
1430  PRINT  TAB(63) SPRINT  HEX (010A0A09 09 ) ; : Q8-0 : INIT(20)06$: 
07$-"0":06-0 

1440  09$-"  "sKEYIN  Q9$ , 1450 , 1440: GOTO  1440 

1450  IF  09$ -HEX (OD)THEN  1500:IF  09$-HEX (03) THEN  1530:IF  09$- 
HEX (E5) THEN  1420:PRINT  Q9$;:IF  Q5-2THFN  1570:ON  VAL (09$) -<* 2 
GOTO  1470,1460,1470,1480 

1460  IF  09$ [HEX (30) THEN  1520:IF  Q9$ ]HEX (39) THEN  1520:GOTO  14 
90 


1470  IF  0 8 [] OTHEN  1 5 20 : Q6-1 : GOTO  1^90 

1480  IF  POS (Q6$-" . ") -OTHEN  1490:IF  POS (06$-". ") [ ] Q8+1THEN  15 
20 

1490  08-Q8+l:STR(Q6$,Q8,l)-09$:U3$-06$:C0T0  1440 
1500  PRINT  HEX(070D0A) : PRINT  TAB(63):IF  05-2THEN  1580:IF  08= 
OTHEN  1520 : IF  0 8 ] 1 3THEN  1520:IF  Q8 ] Q3+Q4THEN  1520: Q7-P0S  (06$ 
-"."): I F 0 7-OTHEN  1510:IF  Q7 ] Q3+Q6+1THEN  1520:IF  08-Q7  ]Q4THE 
N 1520 

1510  CONVERT  STR (Q6$ , 1 , 08) TO  Q9:C0NVERT  Q$(1)T0  Q6:C0NVERT  Q 
$ (2) TO  Q 7 : IF  Q9 [ Q6THEN  1520:IF  Q9 [-Q7THEN  1590 
1520  PRINT  HEX(07) SPRINT  HEX (010A0A0A) ; "INVALID . RE-ENTER" : G 
OTO  1420 

1530  Q8-Q8-1 : IF  Q 3 [ OTHEN  1520 : STR (Q6$ , Q8+1 , 1 )- " " : IF  Q8-Q3TH 
EN  1560 : IF  Q8 [ -Q3+Q4THEN  1550 
1540  PRINT  HEX(082008) ; :GOTO  1440 
1550  PRINT  HEX(082D08' • :GOTO  1440 

1560  IF  Q 5 [ ] 1THEN  154^:PRINT  HEX (082F08) ;: GOTO  1^40 

1570  IF  Q9$[HEX(20)THEN  1520-.IF  Q9$  ]HEX  ( 7F)  THEN  1520  :G0T0  14 

90 

1580  IF  08 ] Q3THEN  1520:IF  Q6$ [ Q$ (1) THEN  1520:IF  06$]Q$(2)THE 
N 1520 
1590  RETURN 


r -PARAMETERS 

(to  BE  INCLl'IKD! 


HARD  COPY 
(C$) 


/ \ LINE  I 

^ . . X YES  PRINTER 

C$  •"Y"  y - SELECTED 


' PRINT  EN- 
TERED LATS  & 

V longs 


GOSUB'  232 
(FIND  OLD 
MAS) 
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GOSUB'  230 

V NO 

/^HU.NT  M4S  \ 

(OPEN  EPLIFI 
FILES) 

xT’> 

MATCI I'J 

YES 

/ DATA 

LOAD  / 

(A$) 

\ 

PRINT  A$(Q) 
A2$-A$(Q) 


[YES 

/^RINT  PARA- 
METER  HDG 


FOR  K-Q  to  A 




V 

L3  - L3+5 

NO 

<^L3  > 59\ 

Jyes 

<^w  - c 

| YES 

• 

p- TO 

" START" /RTN 


IhitBiUnl.  l.'MCfrfAH 


"LOT  StTES/STOP 


PLOT 

ROUTINE 

niNOF.R 

bEVELOPME  ¥T) 
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LAND 


(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM  AND  DEFFN'200) 

D EMITTER  COUNTER 

E INPUT  VARIABLE  FOR  PROGRAM  SELECTION  AT  COMPLETION  OF 
PRINTING 

G CONTINUATION  VARIABLE 
H HIGHEST  SECTOR  VALUE  IN  BINARY  SEARCH 
I INDEX  VARIABLE  USED  IN  PRINT  ROUTINE 

K INDEX  VARIABLE  WHEN  SEARCHING  THROUGH  A SECTOR  OF  DATA 

M MID  SECTOR  VARIABLE  IN  BINARY  SEARCH 

S RECEIVING  VARIABLE  FOR  SECTOR  NUMBER  AFTER  DA  LOAD 

W INDEX  VARIABLE  WHEN  INDEXING  THROUGH  SITE  LOCATION 
BUFFER  ARRAY (A2$) 

A1  FIRST  SECTOR  ADDRESS  IN  LAND  DATA  FILE 

A2  ENDING  SECTOR  ADDRESS 

A3  NUMBER  OF  SECTORS  USED  IN  DATA  FILE 

A4  TOTAL  NUMBER  OF  SECTORS  USED  IN  LAND  DATA  FILE 

Cl  NUMBER  OF  SITE  ACCUMULATOR 

D1  COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES.  PASSED  FROM 
START  PROGRAM 

L3  COUNTER  USED  TO  LOCATE  END  OF  DATA  IN  A STRING  OF  SITE 
DATA 

A$  RECEIVING  ARRAY  FOR  DATA  LOAD  COMMANDS 

A2$  SITE  LOCATION  BUFFER  ARRAY 
A3$  EMITTER  INFORMATION  BUFFER  ARRAY 
Bl$  LOWER  LEFT  LONGITUDE 

B2$  UPPER  RIGHT  LONGITUDE 


c$ 

EITHER  "Y" 

OR  "N". 

IF 

"Y" , A HARD  COPY  IS 

DESIRED 

E$ 

EITHER  "Y" 

OR  "N". 

IF 

"Y" / PARAMETERS  ARE 

TO  BE 

INCLUDED  IN  PRINTOUT. 
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M4$  elint  notation  variable. 

LOCATE  EMITTER  DATA 
Ul$  LOWER  LEFT  LATITUDE 
U2$  UPPER  RIGHT  LATITUDE 


USED  IN  FIND  OLD  ROUTINE  TO 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
FROM  OOPY  PVCCUSHED  TOODC  


10  REM  DEVELOPED  BY  LT  S . W . SMITH , USN  2/12/79 
20  PRINT  HEX (03 ) : COM  D1 

30  PRINT  TAB(IO) ; "THIS  PGM  WILL  PROVIDE  THE  OPERATOR  THE  EOB 
FOR  A GIVEN  SHIP  OR  " ; TAB (10) ; "AIRCRAFT.  THE  PLATFORM  IS  ID 
ENTIFIED  BY  NAME  AND  COUNTRY  CODE" 

40  IF  D1-2THEN  60 

50  PRINT  H EX (0A0A);TAB(10);" ENSURE  THE  EOB  DISK  IS  INSTALLED 
INDRIVE  # 2" SPRINT  TAB(18);  "AND  THE  EPL  DISK  IN  DRIVE  *3":G 
OTO  410 

60  PRINT  HEX (OAOA) ; TAB (10) ; "ENSURE  THF  EOB  DISK  IS  INSTALLED 
IN  DRIVE  * 1" SPRINT  TAB(1S);"AND  THE  EPL  DISK  IN  DRIVE  #2":G 
OTO  410 

70  COM  Al$ (4)62, A$19,A2$ (9)62, A3$  (70)63 
S OP  ETURN 

90COM  V7$R,TO$7,V9,VO$ (3)2, T1 (3) :COM  V0$ 2 , VI $ 8 , V2 $ 2 , V3$ 2 , V4 $ 
2,V6S1:C0M  02  $ 2 , Q3$ 2 , V5 $ 1 , V8$ 1 . T5$ 30 , T7$ 30 : COM  TO , T9 , T2$ 2 , T4 
S3,T2,V8,T8,T1,TR$1,T2$  (8) 2,T(8) :COM  T4 , T5 , V6 , V7 , VI 
lOOCOM  O,Q$l,T9$2,T0$  (4)60 

110C0M  T6$1,T3$3,T1$ (1)2,T3$ (1) 3 3 , V9$ 2 , T1 $ 30 

120ADDC  (V9$  , V0$  ) :DATA  LOAD  DA  Ti*  T1 , (V9$,V9$)T9$,T0$  ()  : RETURN 
13002-99 

140V9$-T2$ :FOR  T3-TOTO  1STEP  -lrGOSUB  1 20 : T2 $ (T3 ) -T9$ : MAT  SE 
ARCH TO $ ()[1,V71,J STR (Tl$ ,1,T4)T0  T1$()STEP  T5 : T-VAL (STR ( Tl$ ( 
1 ) , 2 ) ) -T5 : IF  T ] OTHEN  150:T-V1 

150MAT  COPY  T0$() [T,T5]T0  T3$ () :V9$-STR(T3$ (1) , T4+1 , 2 ) : IF  Q2 
[ 99THEN  180 

160T (T3 ) -T : NEXT  T3 :T7$-T1$ :V-2 : IF  STR (Tl$ , 1 , T4 ) -STR (T3$ (1 ) , 1 

,T4)THEN  170 : V-3 

170RETURN 

180MAT  COPY  T0$ () [ VI , 1 ] TO  T1$():IF  Tl$ (l)-HEX(FF) TEEN  190:Q2 
-Q2+1 : GOTO  160 
190Q2-0 :GOTO  160 

200T4-VAL (STR(V1$,5) ) : T5-T4+3 : V6-VAL (S TR (Vl$ , 6 ) ) :V7-T5*V6:V1 
-V7-T5+1 : RETURN 

210QS-"  " : IF  T 6 [ 1THEN  390:IF  T6-T9THEN  80 
220GOTO  390 

230DATA  SAVE  DA  T $ i?Tl , ( V0$  , V9  $ ) Q2$  , 0 3$  , V5  $ , V8  $ , VO  $ , VI  $ , V2  $ , V 
3$,V6$,T2$,T0,T1,T2,V8,T4$ ,T5$ ,T7$ ,T2$  ()  ,T() ,T8$ : RETURN 
240DATA  LOAD  DA  T #T1 (T9 ) , (V0$ (T9 ) , V9 $ ) Q2 $ , 0 3$ , V5$ , V8$ , V0$ , VI 
$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$() ,?() ,T8$:RETU 
RN 

2 50T6-VAL (T4$ ) *2  56+VAL (STR(T4$ ,2)) :DBACKSPACF  # T2  f BEG  : IF  T6 

-OTHEN  260  :DSKIP  /fT2,T6S 

260Q-VAL (STR (T4$ , 3) ) :Q$ ,T8S-"  " : RETURN 

2 70DEFFN ’232  (T6,T7,T1$) :G0SUB  210:IF  0$]"  "THEN  80:OOSUB  130 
:T4$-STR(T3$ (1) ,T4+1,3) :T8$-"2":IF  V[]2THEN  370:IF  T4$]HEXCF 
F)THEN  370 : GOSUB  250:RETURN 

280DEFFN ,230(T6,T7,Q2,Q3,V7$) :IF  T6 [ 1THEN  3S0:IF  T6 ] 3THEN  3? 
0:IF  V9]0THEN  320 : INIT  (FF) V0$  ( ) : INIT (00) T0$ 

290IF  STR (T0$ ,T7+1,1) ]HEX (00) THEN  3S0:IF  STR (T0$ , 02+1 , 1 )] HEX 
(00) THEN  380 : IF  Q 2-T7THEN  380 

300DATA  LOAD  DC  OPEN  T?,f Q2  , V7 $:  STR  (V7$  , 5 , 1 ) -"K"  : CONVERT  Q3T0 
STR(V7$,6,1)  , (#):  LIMITS  TJiT7  , V7  $ , T , V , T3  s V-INT  (T/ 2 56  ) :BIN(VO$ 
) -V : BIN  (STR  (V0$,,2))  -T-256*V  :T9-T6:V0$  (T9)-V0$  :T1  (T9)-T7:G0SU 
B 240 :GOSUB  200 : VO$-VO$ (T9 ) : T1-T7 : T2-Q2 

310STR (TO$,T7+1,1)-HEX(01) : STR (T0$ , Q2+1 , 1 ) -HEX (01 ) : V9-V9+1 : 0 
$-"  ": T8$-"0" : RETURN 

320IF  VOS (T6) [HEX (FF) THEN  380:IF  T9-0THEN  290:GOSU3  230:T9-0 
: GOTO  290 

330DEFFN' 239(T6):IF  T9-0THEN  340:G0SUB  230:T9-0 
340IF  V9-0THEN  380:IF  V0$ (T6 )] HEX (FF ) THEN  3 SO : T9-T6 : GOSUB  24 
0 
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350T9-0:INIT(FF)V0$ (T6) : STR (TO$ , Tl+1 , 1) , STR (TO$ , T2+1 , 1 ) -HEX ( 

00)  :V9-V9-1  :Q$-{'  " : RETURN 

360T8$«"N" 

370Q$-"N" : RETURN 
380T8$-"X" 

390O$-"X” sRETURN 
400X0 

410  PRINT  HEX(OAOAOA) : PRINT  TAB (20) ; "DEPRESS  EXFC  TO  CONTINU 
E":  INPUT  D : PRINT  HEX(03) 

420  IF  D 1-1THEN  430:SELECT  If  1 310 , *2  310  : GOTO  440 
430  SELECT  01  BIO,  #2  BIO 
440  I ,C ,D-0 

450  GOSUB  '230  (1 , 1 , 2 , 1 , "E0B1F1")  : REM  OPFN  FILES 

460  INPUT  "DO  YOU  WANT  THE  PARAMETERS  INCLUDED  IN  THE  LISTIN 

G ?(Y  OR  N ) " , G $ 

470  PRINT  "PLATFORM  NAME  IS": INPUT  STR (A$, 1,15) 

480  PRINT  "PLATFORM'S  COUNTRY  CODE  IS":INPUT  STR(AS,16,2) 

490  GOSUB  '232  (1,0, A$)  : REM  FIND  OLD 

500  IF  Q $ [ ] " " THEN  580  : REM  NO  MATCH 

510  DATA  LOAD  DC  #2,  Al$(  ) : REM  LOAD  PLATFORM  DATA 

520  A2$(1)-A1$(Q):I-1 

530  IF  STR(A1$ (Q) ,20,1)-"  "THEN  600:IF  Q-4THEN  570 
540  FOR  K-Q  TO  4: IF  A2$ (1)-A1$ (K)THEN  560 
550  I-I+1:A2$ (I)-A1$ (K) 

560  IF  STR (Al$ (K) ,19 ,l)-"-"THEN  600:NEXT  K 

570  Q-l : DATA  LOAD  DC  II 2 , Al $ ( ) : GOTO  540 

580  PRINT  HEX(OAOA):  PRINT  "UNIT  NOT  IN  DATA  BASE" 

590  GOTO  930 

600  GOSUB  '239  (1)  : REM  CLOSE  PLATFORM  FILE 

610  IF  D 1-1THEN  620:SELECT  01B1O , If  2B10  : GOTO  630 
620  SELECT  01350,02350 

630  GOSUB  '230(1,1, 2, 1,"EPL1F1")  : REM  OPEN  EPL  FILES 
640  FOR  W-l  TO  I : REM  INDEXING  THRU  UNITS 
650  M3-21 

660  IF  STR (A  2$ (W) ,M3,5)»"  " THEN  800  ; REM  END  OF  ELINT  NUM 

BERS  ON  PLATFORM  CARD 
670  M4$-STR(A2$ (W) ,M3,5) 

680  GOSUB  *232  (1,0, M4$) 

690  IF  0$ [ ]"  " THEN  780 
700  DATA  LOAD  DC  02,  Al$() 

710  C»C+1:A3$ (C)-A1$ (0) : IF  G$-"N"THEN  790 
720  FOR  K-Q  TO  4 

730  IF  A3$ (C)-Al$ (K)  THEN  740 : C-C+l : A3$ (C ) -Al $ ( K) 

740  IF  STR (Al$ (K) , 6 , 1) -"-"THEN  760 

750  NEXT  K : 0-1 : DATA  LOAD  DC  " 2 , Al$ ( ) : GOTO  720 

760  M3-M3+5 : IF  M3] 59THEN  8O0:G0TO  660 

770  GOTO  800 

780  C-C+1:A3$ (C)-STR(M4$ ,1,5) : STR(A3$ (C) ,10, 9)-"N0  MATCH" 

790  M3-M3+5 : IF  M3[-60THEN  660 
800  NEXT  W 

810  PRINT  : PRINTUSING  1020-.PRINT  S TR  (A2$  (1)  , 2 , 1 7 ) ; STR  ( A2$  ( 1) 
,61,2)  :PRINTUSING  1010:PRINT  A3$(1):IF  G$-ANATHEN  820:PRINT 
USING  1030 

820  FOR  W-2T0  C : IF  G$-"Y"THEN  830:IF  S TR (A3$ (W) , 8 , 1 ) [ ] "0 "THE 
N 860 

830  PRINT  A3$ (W) : IF  STR (A3$ (W) , 6 , 1) [ ] "-"THEN  840:PRINT 
840  IF  C$-"Y"THEN  860 

850  IF  W-10THEN  890:IF  W-20THEN  890:IF  W-30THEN  890 
860  NEXT  W 

870  IF  C$-"Y"THEN  920 
880  GOTO  900 

890  INPUT  "MORE  TO  SEE.  DEPRESS  EXEC",F:  GOTO  860 
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900  INPUT  "DO  YOU  WANT  A HARD  COPY  (Y  OR  N)",C$ 

910  IF  C$-"N"  THEN  930 :C$-"Y": SELECT  PRINT  215:GOTO  810 
920  SELECT  PRINT  005:C$-"N" 

930  PRINT  "DO  YOU  WANT  TO:" 

940  PRINT  " l.DO  OTHER  UNITS" 

950  PRINT  " 2. STOP" 

960  INPUT  " 3. RETURN  TO  ’START'  PROGRAM", E 

970  GOSUB  '239 (1) :ON  E GOTO  980,1040,990 
980  PRINT  HEX  (0  3)  : GOTO  420 

990  COM  CLEAR  : IP  D1-1THEN  1000:PRINT  HEX (0 30A0A0A) : INPUT  "I 
NSTALL  PGMS  DISK  IN  DRIVE  i»l,  DEPRESS  EXEC  TO  CONTINUE", D :LO 
AD  DC  F" START" 

1000  LOAD  DC  F "START" 

1010  ZELINT  MC  NATO  NAME  FC  NTDS  COMMENTS 
1020  ZUNITS  NAME  CCFC 

1030  ZELINT  MC  RFLO  RFHI  PRFLO  PRFHI  PVLO  PV7HI  MT  SCTYP  S 
PL  SPU 
1040  STOP 
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MOBILE  PLATFORM 

(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM) 

C COUNTER  FOR  PARAMETER  DATA 
D INPUT  VARIABLE  FOR  DEPRESS  EXEC  TO  CONT 

E INPUT  VARIABLE  FOR  END  OF  PROGRAM  OPTION 

F INPUT  VARIABLE  FOR  MORE  TO  BE  SEEN  DEPRESS  EXEC 

I COUNTER  FOR  NUMBER  OF  LINES  OF  DATA  STORED  IN  A2$ 

K INDEX  VARIABLE  IN  FOR  TO  ROUTINES 

W INDEX  VARIABLE  FOR  STEPPING  THROUGH  A2$  WHEN  RETRIEVING 
EMITTER  INFORMATION 

Dl  NUMBER  OF  DISK  DRIVES.  PASSED  FROM  START  PROGRAM 

M3  INDEX  VARIABLE  TO  STEP  THROUGH  THE  STRING  OF  ELINT 

NOTATIONS  CONTAINED  IN  EACH  LINE  IN  A2$ 

A$  PLATFORM  NAME  AND  CC  VARIABLE.  USED  IN  FIND  OLD  ROUTINE 

Al$  DATA  LOAD  RECEIVER  ARRAY 

A2$  BUFFER  FOR  DATA  FROM  THE  EOB  DATA  FILE 

A3$  BUFFER  FOR  PARAMETER  DATA  FROM  THE  EPL  DATA  FILE 

C$  HARD  COPY  RECEIVER  VARIABLE.  EITHER  Y OR  N 

G$  EQUAL  TO  Y IF  PARAMETERS  ARE  TO  BE  INCLUDED  IN  LISTING 

M4$  ELINT  NOTATION  VARIABLE.  USED  IN  FIND  OLD  ROUTINE  TO 
RETRIEVE  EMITTER  INFORMATION 

I 

I 

1 


MATCH 
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10  REM  MATCH  DEVELOPED  BY  LT  S . W. SMITH , USN  2/12/79 
20  PRINT  HEX (0 3) : COM  D1 

30  COM  D 1 , Al$ (100)64 ,A$ (4)62.U$5,V$5.W$4,P$ (1) 8 
40  COM  X$64,N$8,Q2$2,Q3$2,Q9$2,Q0$(4)60 
50  GOTO  490 
60  RETURN 

70COM  V7$8,T0$7,V9,V0$ (3)2,T1(3) :COM  V0$ 2 , Vl$ 8 , V2$ 2 , V3$ 2 , V4 $ 
2 , V6$ 1 : COM  Q 2$ 2 , Q3$ 2 , V5$ 1 , V8$ 1 , T5$ 30 , T 7 $ 30 : COM  TO , T9 , T2 $ 2 , T4 
$3,T2,V8,T3,T1,T8$1,T2$ (8 ) 2 , T (8) : COM  T4 , T5 , V6 , V7 , VI 
80C0M  Q,Q$1,T9$2,T0$ (4)60 

90C0M  T6$1,T3$3,T1$(1)2,T3$(1)33,V9$2,T1$30 
100  DIM  Q$  (2) 64,Q5$64,Q7$1 

110ADDC (V9$ ,V0$ ) :DATA  LOAD  DA  T#T1 , (V9$,V9$)T9$,T0$() : P ETUPN 
12002-99 

130V9S-T2$  :FOR  T3-TOTO  1STEP  -lsGOSUB  llr':T2$(T3)-T9$:MA.T  SE 
ARCPT0$ () [1,V7] , ] STR(T1$ ,l,T4)TO  T1$()STEP  T5 : T-VAL (STR (Tl$ ( 
1 ) , 2) ) -T5 : IF  T ] OTHEN  140:T-V1 

140MAT  COPY  T0$ () rT,T5lTO  T3$  () : V9$-STR (T3$ ( 1 ) , T4+1 , 2 ) : IF  02 
r °9THEN  170 

150T(T3) -T :NEXT  T3 : T7$-T1$ : V-2 : IF  S TR (T1 $ , 1 , T4 ) -STR (T3$  ( 1 ) , 1 
, T4) THEN  160: V-3 
1 60RETURN 

170MAT  COPY  T0$ ( ) [VI , 1 ] TO  T1$():IF  Tl$ (l)-HEX (FF)THEN  1 8 0 : Q 2 
-02+1 : GOTO  150 
18002-0 :GOTO  150 

1 90T4-VAL (STR (VI $ , 5) ) : T5-T4  + 3 : V6-VAL ( STR ( VI  $ , 6 ) j : V7-T5*V6 : VI 
-V7-T5+1 : RETURN 

200Q$»"  ” : IF  T 6 [ 1THEN  470:IF  T6-T9THEN  60 
210GOTO  470 

220DATA  SAVE  DA  T$£T1,(V0$,V9$)Q2$,Q3$,V5$,V8$,V0$,V1$,V2!?,V 
3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$ ,T2$ () ,T() ,T8$: RETURN 
230DATA  LOAD  DA  T#T1(T9) , (V0$  (T9) ,V9$ )Q2$,Q3$,V5$,V8$,V0$,V1 
$,V2$,V3$ ,V6$ ,T2$ ,T0,T1,T2,V8,T4$,T5$ ,T7$,T2$ () ,T() , T8$ : RETU 
RN 

2 40T6-VAL (T4$ ) *2 56+VAL (STR(T4$ , 2) ) :DBACKSPACE  #T2 , BEG  : IF  T6 

-OTHEN  250 : DSKIP  #T2,T6S 

250Q-VAL (STR (T4$ , 3 ) ) :Q$,T8$-M  " : RETURN 

2 60DEFFN ’232(T6,T7,T1$) rGOSUB  200:IF  0$]"  "THEN  60:G0SUB  120 
:T4$-STR(T3$ (1) ,T4+1 ,3) tTS?-’^" j IF  V [ ] 2THEN  45C:IF  T4 $ ] HEX ( F 
F)THEN  450 :GOSUB  240:RETURN 

270DEFFN ’235(T6) :GOSUB  200:IF  q$]"  "THEN  60 : INIT (00 ) T1 $ : 0$ , T 
8$-" 5" : GOTO  290 

280DEFFN'237 (T6) :GOSUB  200:IF  Q$]"  "THEN  60:T-T(1):IF  T3$-" 
"THEN  300 : IF  T 8$ ] HEX (40) THEN  460:T1$-T7S 
290COSUB  120 

300T-T+T 5 : IF  T2$ (1) -T9$THEN  310 : V9 $-T2 $ ( 1 ) : OOSUB  110 

310IF  T ] V1THEN  330:MAT  COPY  T0$ ( ) f T , T5 ] TO  T3$():IF  T3$(1)]HE 

X (FF)THEN  330 

320T7$-STR(T3$ (1) ,1.T4) :T4$-STR(T3$ (1) ,T4+1 , 3) : IF  T4S ]HEX (FF 

) THEN  440 :T (1)-T:T2$ (1)-T9$ rGOSUB  240: RETURN 

330T3-1 

340T3-73+1 : IF  T 3 1 TOTHEN  480 :V9$  = T2$ (T3) rGOSUB  11 0 : T-T (T3 ) : T- 
T+T5 : IF  T ] V1THEN  340:MAT  COPY  T0$  ( ) [ T , T5 1 TO  T3$():IF  T3$(l)] 
HEX (FF) THEN  340 

350T  (T3) -T: IF  T 3-1THEN  3 20 : V9$-STR (T 3$ (1 ) , T4  + 1 , 2 ) : GOSUB  110: 
MAT  COPY  T0$ () [ 1 , T5  ] TO  T3$  () : T3-T3-1 : T-l : T2$ (T3) -T9$ : GOTO  35 
0 

360DEFFN '230(T6,T7 ,Q2,Q3,V7$) : IF  T6 [ 1THEN  460:IF  Tb ] 3THEN  46 
0 : IF  V9 ] OTHEN  400 : IN  IT  (FF) V0$ ( ) : INIT (00 ) T0$ 

370IF  STR (T0$ ,T 7+1 , 1 ) ]HEX(00)THEN  460:IF  STR (T0$ , 02+1 , 1 )] HEX 
(00) THEN  460 : IF  Q2-T7THEN  460 
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380DATA  LOAD  DC  OPEN  T//Q2  , V7$  : STR  (V7$  , 5 , 1) -"K"  : CONVERT  Q3TO 
STR(V7$ ,6,1) , (0) : LIMITS  TffT7,V7$,T,V,T3:V-INT(T/256) :BIH(VO$ 
)-V:BIN(STR(VO$,2))-T-256*V:T9-T6:VO$ (T9 ) -VO$ : T1 (T9 ) -T7 : GOSU 
B 2 30 : GOSDB  190 : V0$-V0$ (T9 ) : T1-T7 : T2-Q2 

390STR(T0$,T7+1,1)«HEX(01) : STR (T0$ , Q2+1 , 1 ) -HEX  (0 1 ) :V9-V9+1:Q 
$•"  " :T8$-ftO" tRETURN 

400IF  V0$ (T6) (HEX (FF) THEN  460:IF  T9-0THEN  370:GOSU3  220:T9-0 
:GOTO  370 

410DEFFN' 239 (T6) :IF  T9-0THEN  420:G0SUB  22n:T9-0 

420IF  V9-0THEN  460:IF  V0$ (T6 )] HEX (FF) THEN  460 : T9-T6 : GOSUB  23 

0 

4 30T9-0  : INIT  (FF)  V0$  (T6)  : STR (T0$ , Tl+1 , 1 ) , STR  (T0$  , T2+1 , 1 ) -HF.X  ( 
00) :V9-V9-1:Q$-"  " : RETURN 

440TR$— "N" 

450O$-"N" : RETURN 
460TR$-"X" 

470Q$«"X": RETURN 

480IF  0$-” 5"THEN  440 : T8$ , 0$-"E" : RETURN 

490  PRINT  "THIS  PGM  SEARCHES  THE  EPL  FOR  ALL  POSSIBLE  MATCHE 

5 TO  PARAMETERS" ;TAB (18) ;"SUPPLIED  BY  THE  OPERATOR" 

500  IF  D1-1THEN  510:PRINT  HEX (OAOA) ; TAB (5 ); "ENSURE  THE  EPL  K 
EY  FILE  DISK  IS  INSTALLED  IN  DRIVE  #1":PRINT  TAB(15);"AND  TH 
E EPL  DISK  IN  DRIVE  02":GOTO  520 

510  PRINT  HEX (OAOA) ;TAB(5) ; "ENSURE  THE  EPL  KEY  FILE  DISK  IS 
INSTALLED  IN  DRIVE  02":PRINT  TAB(15)  ; "AND  THE  EPL  DISK  IN  DR 
IVE  0 3" 

520  PRINT  HEX (OAOA) ;TAB (10) ; "IF  PROPER  DISKS  ARE  INSTALLED, S 
ELECT  EXEC": INPUT  G 
530  PRINT  HEX  (03) 

540  IF  D1-1THEN  550:SELECT  01  310,  02  BlOsGOTO  560 

550  SELECT  #1  BIO,  it  2 350 

560  GOSUB  ’230  (1 , 1 , 2 , 3 , "EPL1F1") 

570  PRINT  "DO  YOU  WANT  TO  MATCH  IN:" 

580  PRINT  " 1 . FREQ , PRF , &PW" 

590  PRINT  " 2. FREQ  & PRF" 

600  PRINT  " 3. FREQ  & PW" 

610  INPUT  S 5 

620  GOSUB  ’200("40"  "10500", 6,0, "ENTER  FREO  " , 1 ) : K-09 : CONVER 
T Q 9TO  U$, (#0000) :GOSUB  ’50(U$) 

630  PRINT  "FREO-";U$ : INPUT  "IS  THIS  THE  DESIRED  VALUE  (Y  OR  N 
) CR-Y  " ,D$ : IF  D$-"N"THEN  620 
640  IF  S 5-3THEN  680 

650  GOSUB  ’200("0"  "9999", 5,0, "ENTER  PRF" , 1 ): K-Q9 : CONVERT  09 
TO  V$, (00000);  GOSUB  ' 5 2 (V$ ) 

660  PRINT  "PRF-":V$ : INPUT  "IS  THIS  THE  DESIRED  VALUE (Y  OR  N) 
CR-Y" , D$ : IF  D$-"N"THEN  650 
670  IF  S 5-2THEN  700 

680  GOSUB  *200("0.0"  "99.9",3,1  "ENTER  PW  ",  1 ): K-Q9 : CONVERT 
0°  TO  W$, (00.0):  GOSUB  ’51(WS) 

690  PRINT  "PW-ft;W$: INPUT  "IS  THIS  THE  DESIRED  VALUE (Y  OP  N>C 

R-Y" ,D$ : IF  D$-"N"THEN  680 

700  GOSUB  ’235  (1)  : REM  FINDFIRST 

710  IF  U$ [STR(T7$ t10,5)THEN  800 

720  DATA  LOAD  DC  02,  A$() 

730  IF  U$]STR(A$(Q) ,16, 5) THEN  800 
740  IF  S5-3  THEN  770 

750  IF  V$ [ STR (A$ (Q) ,22, 5) THEN  800:IF  V $ ] STR (AS ( 0) , 2 & , 5 ) THEN 
800  : REM  PRF  MATCH? 

760  IF  S 5-2  THEN  780 

770  IF  W$[STR(A$(Q) ,34,4)THEN  800:IF  W$ ] STR ( A$ (Q) , 39 , 4 ) THEN 
800  : REM  PW  MATCH? 

780  W-W+l :A1$ (W)-A$ (Q) : PRINT  HEX  (03) ; "MATCHES  MADE  -”;W:PRIN 
T "IF  YOU  NEED  TO  TERMINATE  THE  SEARCH  MODE  AND  WISH  TO  SEE 
THE  MATCHES  MADE; ENTER  RUN830" 
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810  IF  Q$-"E"  THEN  830  : REM  END  OF  E PL  FILE 

820  GOTO  710  : REM  LOOPING  BACK  TO  CHECK  NEW  KEY 

830  IF  W]0  THEN  880  : REM  IF  POS  THEN  GOING  TO  PRINT  ROUTINE 

840  PRINT  HEX (03) : ON  S5  GOTO  850,360,870 

850  PRINT  "NO  MATCH  FOR:  FREQ-" ; U$ , A PRF-" ; V$ , "PW-" ; W$ : GOTO 
1120 

860  PRINT  "NO  MATCH  FOR:  FRE0-"  ; U$  , "PP.F-"  ; V$  :GOTO  1120 
870  PRINT  "NO  MATCH  FOR:  FREQ-" ; U$ , "PW-" ; W§  :GOTO  1120 
880  GOSUB  *239(1) 

890  IF  D 1-1THEN  900:SELECT  It 1B10 , #2B10 :GOTO  910 

900  SELECT  #1350, #2350 

910  GOSUB  '230(1,1, 2, 1,"EPL1F1") 

920  FOR  1-1  TO  W 
930  IF  1-1  THEN  950 

940  IF  STR(P$ (1) ,1,5)»STR(A1$  (I) ,1,5) THEN  1020:PRINT 
950  P$(1)-STR(A1$ (I) ,1,5) 

960  GOSUB  *232  (1 , 0 , P$ ( 1 ) ) : IF  Q$[]"  "THEN  980 
970  DATA  LOAD  DC  It  2,A$() 

980  IF  I ] 1 THEN  1010 
990  PRINTUSING  1060 

1000  PRINT  A$(Q):PRINT  HEX (OA) : PRINTUSING  1G70:G0T0  1020 
1010  PRINT  A$(Q) 

1020  PRINT  Al$ (I) : IF  C$-"Y"THEN  1040 

1030  IF  1-6  THEN  1050:IF  I-12THEN  1059:IF  I-18THEN  1050:IF  I 
-24  THEN  1050 : IF  I-30THEN  1050 

1040  NEXT  I: IF  C$-"Y"THEN  1110: INPUT  "NO  FURTHER  MATCHES. DE? 
RESS  EXEC  TO  C ONTINUE " , G : GOTO  1080 

1050  INPUT  "MORE  TO  COME.  DEPRESS  EXEC  TO  C ONTINUF" , G : GOTO  1 
040 

1060  XELINT  MC  NATO  NAME  FC  NTDS  COMMENTS 

1070  2 EL INT  MC  RFLO  RFHI  PRFLO  PEFHI  PWLO  PWFI  MT  SCTYP  S 

PL  SPU 

1080  INPUT  "DO  YOU  WANT  A HARD  COPY  (Y  OR  N)",C$ 

1090  IF  C$-"N"THEN  1110 

1100  SELECT  PRINT  215:GOTO  920 

1110  SELECT  PRINT  005:PRINT  HEX (03) : C$-"N" : GOSUB  '239(1):W,I 

-0 

1120  PRINT  : PRINT  "DO  YOU  WANT  TO:" 

1130  PRINT  " 1 . DO  ANOTHER  MATCH" 

1140  PRINT  " 2. RETURN  TO  'START'  PROGRAM" 

1150  PRINT  " 3. STOP" 

1160  INPUT  E 

1170  ON  E GOTO  530,1190,1210 

1180  PRINT  "INVALID. REENTER" : GOTO  1120 

1190  COM  CLEAR  : IF  D 1-1THEN  1200: INPUT  "INSTALL  PGMS  DISK  IN 
DRIVE  it  1,  DEPRESS  EXEC  TO  CONTINUE" , D : LOAD  DC  F"START" 

1200  LOAD  DC  F" START" 


1210 
1220 
1230 
) -H  EX 
1240 
1250 
1260 
1270 
1280 
1290 
) -HEX 
1300 
1310 
1320 

l«  ? n 

RINT 


STOP 

DEFFN ' 50  (U$) 

FOR  I-1TO  3 : IF  STR(U$ , I , 1) []HEX (30) THEN  1240 : STR (U$ , I, 1 

(20) :NEXT  I 

RETURN 

DEFFN ’ 51  (W$) 

IF  STR (W$,l,l) []H EX (30) THEN  1270 : STR (W$ , 1 , 1) -HEX (20) 
RETURN 

DEFFN ' 5 2 (V$) 

FOR  I-1TO  3 : IF  STR (V$ ,1,1) [ ]HEX(30)TUFN  1 300 : STR (V$ , I , 1 

(20) : NEXT  I 

RETURN 

DEFFN' 200(0$  (1) , 0$ ( 2 ) ,Q3,Q4,05$,05) 

-SE»«ST«aR]:NT  °°5(64)  :PRINT  HEX  (030ir>A)  ; Q5$  ; TAB  (6  3)  : PPIN 
6 jffORT2S«fT2  03 : PRINT  : NEXT  08:  IE  ^ 5-  2THEN  1330:P 

/ ; : IF  04— OTHEN  1330:FOR  08— 1TO  04:PRINT  "~";:NEXT  08 
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1330  PRINT  TAB (63) SPRINT  HEX (010A0A09 09 ) ; s Q 8-0 s INIT(20)06$s 
* Q7$-"0":  Q6-0 

1340  Q9  $-  " "sKEYIN  Q9 $ , 1 35 0 , 1 34 0 : GOTO  1340 

1350  IF  Q9$-HEX(0D)THEN  1400:IF  Q9$-HEX (08)THEN  1430:IF  09$- 
HEX (E5) THEN  1320:PRINT  Q9$;sIF  Q5-2THEN  1470:ON  VAL(Q9$)-42 
GOTO  1370,1360,1370,1380 

1360  IF  Q9$ [HEX(30)THEN  1420:IF  Q9$ ]HEX (39) THEN  1420:G0T0  13 
90 

1370  IF  Q8U0THEN  14 20  : Q6-1 : GOTO  1390 

1380  IF  POS(Q6$-".")-OTHEN  1390:IF  POS  (Q6 $-".")[] Q8+1THEN  14 
20 

1390  Q8-Q8+lsSTR(Q6$,Q8,l)-Q9$s GOTO  1340 

1400  PRINT  HEX(070D0A) SPRINT  TAB(63)sIF  05-2THEN  1480sIF  Q8- 
OTHEN  1420  s IF  Q 8 ] 1 3THEN  1420sIF  Q8  ] Q3+Q4TIIEN  14 20 s Q7-P0S (06$ 

-". ") 5 IF  Q 7-0THEN  1410sIF  Q 7 ] Q3+Q6+1THEN  1420sIF  08-Q7]Q4THE 
N 1420 

1410  CONVERT  S TR  (Q6$  , 1 , 08)  TO  Q9sC0NVERT  0$(1)T0  Q6sC0NVEPvT  0 
$ ( 2 ) TO  07  s IF  Q 9 [ Q6THEN  1420sIF  Q9[-07THEN  1490 
1420  PRINT  HEX(07) SPRINT  HEX (010A0A0A) ; "INVALID . RF-ENTER" : G 
OTO  1320 

1430  Q8-08-1 s IF  08[0THEN  14 20 : STR  (06  $ , 08+1 , 1 ) « " ":IF  08-Q3TH 
EN  1460  s IF  08 [-03+Q4THEN  1450 
1440  PRINT  HEX(082008); sGOTO  1340 
1450  PRINT  HEX(082D09) ; sGOTO  1340 

1460  IF  o 5 [ ] 1THEN  1440sPRINT  HEX(082FO«) ; sGOTO  1340 

1470  IF  09$ [HEX (20)THEM  1420sIF  09$ ] HEX ( 7F) THEN  1420sGOTO  13 

90 

1490  IF  Q8J03THEN  1420:IF  Q6S [0$ (l)THFN  1420:IF  06$]QS(2)THE 
N 1420 
1400  RETURN 
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1 


US<STR^ 

'T7$,10,5, 


10 


MATCH 

(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM) 

D INPUT  VARIABLE  TO  CONTINUE  AFTER  REINSERTING  PGM-S  DISK 
E END  OF  PROGRAM  OPTION  VARIABLE 

G INPUT  VARIABLE  TO  CONTINUE 

I INDEX  VARIABLE 

W MATCHES  MADE  COUNTER 

D1  COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES.  PASSED  FROM 
START  PROGRAM. 

S5  VARIABLE  FOR  TYPE  OF  MATCHING 

A$  DATA  LOAD  RECEIVER  ARRAY 

Al$  MATCHES  MADE  ACCUMULATOR 

C$  EITHER  "Y"  OR  ”N".  IF  "Y",  A HARD  COPY  IS  DESIRED 
D$  INPUT  VERIFICATION  STRING  FUNCTION 

P$  ELINT  NOTATION  USED  IN  FIND  OLD  ROUTINE  TO  OBTAIN  NAME 
INFORMATION  FOR  PRINTOUT  WITH  MATCHES  MADE  DATA. 

U$  FREQUENCY  INPUT  VARIABLE 

V$  PRF  INPUT  VARIABLE 

W$  PULSE  WIDTH  INPUT  VARIABLE 
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IBIS  PI® 

raoaoon 

EMITTER  PARAMETER  (LIST) 

►.  10  REM  L EMIT  DEVELOPED  BY  LT  S . W . SMITH , USN , 2/12/79. 

20  PRINT  HEX (03) : COM  D1 

30  PRINT  "THIS  PGM  WILL  LIST  THE  PARAMETERS  OF  ANY  EMITTER  S 
ELECTED  BY  THE" ; TAB ( 2 ): "OPERATOR . SELECTION  IS  BY  ELINT  NOTA 
TION  OR  NATO  NICKNAME.*' 

40  IF  Dl-ITHEN  50:PRINT  HEX (OAOA) ; TAB ( 3 ) ; "**ENSURE  THE  EPL  D 
ISK  IS  INSTALLED  IN  DRIVE  NUMBER  TWO**":GOTO  60 
50  PRINT  HEX (OAOA) ;TAB(3):"**ENSURE  THE  EPL  DISK  IS  INSTALLE 
D IN  DRIVE  NUMBER  THREE**'' 

60  COM  B$  (4)62,B1$62,A$5,A1$12 

70  GOTO  410 

80RETURN 

90COM  V7$8,T0$7,V9,V0$(3)2,T1(3)  : COM  V0$ 2 , Vl$ 8 , V2 $ 2 , V3$ 2 , V4$ 
2 , V 6 $ 1 s C OM  02$2,Q3$2,V5$1,V8$1,T5$30,T7$30:COM  TO , T9 , T2 $ 2 , T4 
$3,T2,V8,T8,T1,T8$1,T2$ (8)2,T(8) :COM  T4 , T5 , V6 , V7 , VI 
100C0M  Q,Q$1,T9$2,T0$(4)60 

110COM  T6$1,T3$3,T1$ (1)2 ,T3$ (1)33,V9$2,T1$30 

120ADDC  (V9$  ,V0$)  :DATA  LOAD  DA  T//T1,  (V9$,V9$)T9S,T0$()  : RETURN 


k bestial  inmanam 
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I 


13002-99 

1^0V9$-T2$:FOR  T3-T0T0  1STEP  -1:G0SUB  1 20 : T2$ (T3 ) -T9$  : MAT  ? E 
ARCHTO$ ( ) [ 1 , V7 ] , ] STR (Tl$ , 1 , T4) TO  T1$()STEP  T5 : T- VAL ( STR ( T1 $ ( 
1),2))-T5:IF  T ] OTHEN  150:T»V1 

150MAT  COPY  T0$  ()  f T , T5 1 TO  T 3 $ ( ) : V9  $ -STP.  ( T 3 $ ( 1 ) , T4  + 1 , 2 ) : I*  02 
r 99THEN  180 

160T(T3)«T:NEXT  T3 : T7$-T1$ : V-2 : IF  S TR (Tl$ , 1 , T4 ) -STP ( T3 $ ( 1 ) , 1 
, T4 ) THEN  170 :V«3 
1 70RETURN 

1 SOM AT  COPY  T0$() rvi,l]TO  T1$():IF  Tl$ ( 1) -HEX (FF) THEN  190:02 
=02+1 : GOTO  160 
19002-0 : GOTO  160 

200T4-VAL (STR(V1$,5)) : T5-T4+3 : V6-VAL (STR (Vl$ , 6) ) : V7  = T5*V6  :V1 
-V7-T5+1: RETURN 

2100$-"  " : IF  T 6 [ 1THEN  390:IF  T6-T9THEN  80 
220GOTO  390 

230DATA  SAVE  DA  T$ #T1 , (V0$ , V9 $ ) 02$ , Q3$ , V5$ , V8 $ , V0$ , Vl$ , V2$ , V 
3$,V6$,T2$ ,T0,T1,T2,V8,T4$ ,T5$  ,T7$ ,T2$  () ,T() ,T8$ : RETURN 
240DATA  LOAD  DA  T#T1 (T9 ) , ( VO $ (T9 ) , V9 $ ) 0 2 $ , 03 $ , V5 $ , V8 $ , V0$ , VI 
$,V2$,V3$,V6$,T2$,T0,T1,T2,V8,T4$,T5$,T7$,T2$  () ,T() ,T8$:RETU 
RN 


250T6 -VAL (T4$)*256+V AL(STR(T4$, 2)) :D BACKSPACE  ft T2.BEG  : IF  T6 

-OTHEN  2 60 : DSKIP  #T2,T6S 

2600- VAL (STR(T4$ ,3) ) :Q$  ,T8$-"  " : RETURN 

270DEFFN'232(T6,T7,T1$) :GOSUB  210:IF  Q$]"  "THEN  80:GOSUB  130 
: T4$»STR (T3$ ( 1) , T 4+1 ,3) :T8$-"2":IF  V[]2THEN  370:IF  T4$]HEX(F 
F) THEN  370 : GOSUB  250:RETURN 

280DEFFN'230(T6,T7,02,Q3,V7$) : IF  T6 [ 1TPEN  380:IF  T6 1 3 THEN  38 
0 : IF  V9 ] OTHEN  320 : INIT (FF ) V0$ ( ) : INIT ( 00 ) T0$ 

290IF  STR (T0$,T7+1,1) ] HEX (00 ) THEN  380:IF  STR (T0$ , 02+1 , 1 )] HEX 
(00 ) THEN  380 : IF  0 2-T7THEN  380 

300DATA  LOAD  DC  OPEN  T *02 , V 7 $ : S TR (V 7$ , 5 , 1 ) - "X" : CONVERT  Q3T0 
STR(V7$,6,1), (ft)  t LIMITS  T"T7 , V7 $ , T , V , T3 : V- INT (T/ 2 5 6 ) :BIN(V0$ 
)-V:  BIN  (STR  (VO  $ , 2)  ) »T-2  5 6*  V : T9-T6  : V0$  (”T9)-V0$  : T1  (T9) -T7  : GO  SC 
B 240 :GOSUB  200 : V0$-V0$ (T9 ) : T1-T7 : T2-Q2 

310STR(T0$,T 7+1,1) -HEX (01) : STR (T0$ , Q2+1 , 1 ) -HEX (0 1 ) : V9-V9+1: Q 
$="  " : T8$-"0 " : RETURN 

320IF  V0$ (T6) [HEX (FF) THEN  380:IF  T9-0THEN  290:G0SUB  23C:T9-n 
: GOTO  290 

330DEFFN '239(T6):IF  T9-0THEN  340:GOSUB  230:T9=0 
340IF  V9-0THEN  380: IF  V0$  (T6 ) j HEX (FF) THEN  3 «0 : T9-T6 : GOSUB  24 
0 


350T9-0: INIT(FF)V0$ (T6) : STR (T0$ , Tl+1 , 1) ,STR(TO$ ,T2+1, 1)-HEX ( 
00) :V9-V9-1:Q$«"  " : RETURN 
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360T8$-"N" 

370Q$-"N" : RETURN 
380T8$-"X" 

3900$ - "X"  : RETURN 
400Z# 

410  PRINT  HEX(OA) ;TAB(3) ; "DO  YOU  WISH  TO  SEARCH  VIA  NATO  NIC 
KNAME  OR  ELINT  NOTATION" 

420  PRINT  TAB(15) ; "1. ELINT" 

430  PRINT  TAB (15 ); "2 .NAME" 

440  INPUT  D 

450  IF  D [ 3THEN  460:PRINT  "INVALID . REENTER" : GOTO  410 
460  IF  D1-1THEN  470:SELECT  # 1B10 , #2B10 : GOTO  480 
470  SELECT  #1350,02350 
480  GOSUB  '230(1,1, 2, D,"EPL1F1") 

490  IF  D-2THEN  770: INPUT  "EMITTER  ELINT  NOTATION  IS",A$ 

500  GOSUB  '232(1, 0,A$) 

510  IF  0$[]"  "THEN  750 
520  DATA  LOAD  DC  #2,B$() 

530  PRINT  HEX ( 03 ) : PRINTUSING  730:PRINT  B$ (0) : PRINTUSING  740 
540  B1$-B$(Q):IF  0-4THEN  590 

550  FOR  K-0  TO  4: IF  B$ (K)-B1$THEN  580:PRIMT  BS(K):IF  STR(B$( 
K) , 6 , 1) “"-"THEN  600:1-1+1 

560  IF  I-RTHEN  570:IF  I-18TPEN  570:IF  I-2RTHEN  570:IF  I-38TH 
EN  570 :GOTO  580 

570  IF  B 2$-"Y"THEN  580: INPUT  "MORE  TO  SEE.  DEPRFSS  EXEC  TO  C 
ONTINUE" ,D 
580  NEXT  K 

590  DATA  LOAD  DC  #2  , B$ ( ) : Q-l : GOTO  550 
600  IF  B2$-"Y"THEN  630 

610  INPUT  "DO  YOU  WANT  A HARD  COPY(Y  OR  N)",B2$ 

620  IF  B2$-"N"THEN  640:SELECT  PRINT  215: IF  D-2THEN  730:GCTO 
500 

630  SELECT  PRINT  005:32$-"N" 

640  1-0 

650  PRINT  H EX (0 A) ; "DO  YOU  WISH  TO:" 

660  PRINT  " 1. SEARCH  FOR  ANOTHER  EMITTER" 

670  PRINT  " 2. STOP" 

680  PRINT  " 3. RETURN  TO  ' START ' PROGRAM" 

690  INPUT  G 

700  GOSUB  '239(1) :0N  G GOTO  800,760,720 
710  PRINT  "INVALID. REENTER" : GOTO  650 
720  COM  CLEAR  : LOAD  DC  F"START" 

730  ZELINT  MC  NATO  NAME  FC  NTDS  COMMENTS 

740  ZELINT  MC  RFLO  RFHI  PRFLO  PRFHI  PWLO  PWHI  MT  SCTYP  SP 

L SPU 

750  SELECT  PRINT  005:PRINT  HEX (OAOA) ; TAB (10 ); "CHECK  ENTRY.  I 
F IT'S  CORRECT, THEN  THE  EMITTER" : PRINT  TAB(15);"IS  NOT  LOCAT 
ED  IN  THE  DATA  FILE.":PRINT  HEX (OAOA) : COTO  640 
760  STOP 

770  INPUT  "EMITTER  NAME  IS",A1$ 

780  GOSUB  '232(1, 0,A1$) 

790  GOTO  510 

800  PRINT  HEX (03) : GOTO  410 


71 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
IftOi  OOPY  FURBISHED  TO  DOC ' 


EMITTER  PARAMETER  (LIST) 

(DOES  NOT  INCLUDE  THOSE  USED  BY  KFAM) 

D SEARCH  VIA  ELINT  NOTATION  OR  NATO  NICKNAME  VARIABLE 

G DESIRES  AT  END  OF  PROGRAM  VARIABLE 

I INDEX  VARIABLE 

D1  COM  VARIABLE  FOR  NUMBER  OF  DISK  DRIVES.  PASSED  FROM 
START  PROGRAM 

A$  ELINT  NOTATION  INPUT  VARIABLE 
Al$  EMITTER  NICKNAME  VARIABLE 

B$  DATA  LOAD  RECEIVER  ARRAY 

Bl$  EMITTER  PARAMETER  INFORMATION  ARRAY 
B2$  EITHER  "Y"  OR  "N" . 


IF  "Y",  A HARD  COPY  IS  DESIRED 


IT 


IBIS  riGE  IS  BEST  QUALITY  PRXCTLGABIji 
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EXCAP  EA-6B  LIST  MANAGEMENT 


10  REM  DEVELOPED  BY  LT  S .W. SMITH, USN,  2/12/79 
20  PRINT  HEX (0 3 ) 

30  PRINT  " THIS  PGM  WILL  ASSIST  THE  EWO  IN  MANAGING  THE  EXC 
AP  SQUADRON ' S" : PRINT  TAB(20);"ACO  AND  CCI  ASSIGNMENT  LISTS" 
40  DIM  0$ (2)64,05$64,07$1 
50  DIM  L$ (49 ) 58 , A$  5 
60  PRINT  HEX (0A0A0A) 

70  PRINT  TAB(IO) ; "WHICH  LIST  SET  DO  YOU  WANT  TO  WORK  WITH" 

80  PRINT  TAB(27) ; "1 . WAS ": PRINT  TAB (2 7 ) ; "2 . LAND" : PR INT  TAB(27 

) ;"3.ASMD":INPUT  G 

90  ON  G GOTO  150,130,110 

100  PRINT  "INVALID. REENTER" : GOTO  70 

110  DATA  LOAD  DC  OPEN  F "ALISTS" : DATA  LOAD  DC  L$():REM  **** 
IF  ERR  80  OCCURS,  ENTER  RUN  1220***** 

120  GOTO  160 

130  DATA  LOAD  DC  OPEN  F "LLISTS" :DATA  LOAD  DC  L$():PEM  ***** 
IF  ERR  80  OCCURS,  ENTER  RUN  1220***** 

140  GOTO  160 

150  DATA  LOAD  DC  OPEN  F "WLISTS " : DATA  LOAD  DC  L$():PEM  ***** 
IF  ERR  80  OCCURS,  ENTER  RUN  1220***** 

160  INPUT  "DO  YOU  DESIRE  A LISTING  OF  THE  PRESENT  LISTS(Y  OR 
N)",D$ 

170  IF  D$-"N"THEN  260 
180  GOSUB  ,100(L$,"N",1,G) 

190  INPUT  "DO  YOU  WANT  A HARD  COPY  OF  THE  LISTS  (Y  OP.  N)",P$ 

200  IF  D$-"N"THEN  260: IF  DS«"Y"THEN  220 

210  PRINT  "INVALID. REENTER ": GOTO  190 

220  INPUT  "HOW  MANY  COPIES  ",C 

230  SELECT  PRINT  215 

2^0  GOSUB  *100  (L$,D$,C,G) 

250  SELECT  PRINT  005 

260  PRINT  HEX (0 30A0A0A) :PPINT  "DO  YOU  WANT  TO 

270  PRINT  TAB(7) ; "1 .ENTER  ALL  NEW  LISTS":FRINT  TAB ( 7 ) ; "2 . CHA 
NGF  SOME  OF  THE  LISTS":PRINT  TAB ( 7) ; "3 . CHANCE  SELECTED  PA  RAM 
ETERS  IN  A SELECTED  LIST" 

280  PRINT  TAB (7) ; "4 . SAVE  WHAT  YOU  HAVE  DONE" : PRINT  TAE(7);"5 

.LIST  THE  L ISTS" : PRINT  TAB ( 7 ) ; "6 . STOP" : INPUT  A 

290  IF  A [ 6THEN  300:PRINT  " INVALID . REENTER" : GOTO  260 

300  ON  A GOTO  330 , 580 , 610 , 860 , 1°0 , 310 

310  INPUT  "SAVE  ANY  TH ING? ??????? (Y  OR  N)",D$ 

320  IF  D$-"Y"THEN  86C:GOTO  940 

330  INPUT  "NUMBER  OF  LISTS  TO  BE  ENTERED  ([-40)",B 
340  IF  B [ 41THEN  350:PRINT  " INVALID . REENTER" : GOTO  330 
350  INIT ("  " ) L $ ( ) 

360  FOR  1-1  TO  B 
370  IF  I[«30  THEN  390 
380  I-I+10 

390  CONVERT  I TO  M$,  («) 

400  STR (L$ (I) , 1, 2 ) *M$ 

410  GOSUB  ' 2 00 (" 5 5 " , " 10500" , 6 , 0 , "ENTER  FP.EO  LO"  , 1 ,M$  ) : CONVER 
T Q9  TO  A$, (#####) sGOSUB  * 50 (A$ ) : STR (L$ ( I ) , 4 , 5 ) «A$ : IF  A-3  TH 
EN  630 

420GOSUB  '200("55", "10500", 6,0, "ENTER  FREO  H I ",  1 , MS ): CONVERT 
09  TO  A$, (#####) :GOSUB  ' 50 (A$ ) : STR (L$ ( I) , 10 , 5 ) -A$  : IF  A-3TFEN 
630 

4 30GOSUB  ’200("40", "9999", 5,0, "ENTER  PRF  1 LO" , 1 ,M$ ): CONVERT 
09  TO  A$  , (0>W)  sGOSUB  ’ 50  (AS  ) : STR  (L$  ( I ) , 1 6 , 4 ) - A$  : IF  A ■ 3 THEN 
630 

440COSUB  ,200("40","999c>", 5,0, "ENTER  PRF  1 HI " , 1 , M?  ) : CPNVEPT 
09  TO  A$ ,(####)  : GOSUB  ' 50 (A $ ) : STR (L $ ( T ) , 2 1 , 4) -A$ : IF  A-3THFN 
630 

4 50G0SUB  '2001  "OOOO","  9909"  ,5f0,  "ENTER  PP'1  2 LO"  , 1 , M$  ) : CCNVE 
RT  09  TO  A$ , : GOSUB  ' 50 (A$ ) : STR (L$ ( I ) , 2 6 , 4 ) -A$ : IF  A-3TH 
EN  630 
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460G0SUB  '200("0000", "9999", 5,0, "ENTER  PRF  2 HI" , 1 ,M$ ) s CCNVE 
RT  09  TO  A$  ,(#«#)  sGOSUB  ' 50 (A$ ) : STR(L$ (I ) , 31 , 4) -A$ : IF  A-3TH 
EN  630 

470GOSUB  *200  ("00000" , "99 999"  , 6 , 0 , "ENTER  LTIFN",1,M$) :CONVER 

T Q9T0  A$. (#####): STR(L$  (I), 36, 5) -A$ : IF  A-3THEN  630 

480GOSUB  *200 ("00000 ","99 9 99", 6,0, "ENTER  SPRI",1,M$) : CONVERT 

Q9  TO  A$, (#####) : STR (L$ (I) ,42,5)-A$:IF  A-3THEN  630 

490G0SUB  *200  ("00000", "9 9 9 59", 6,0, "ENTER  TBKSF", 1 ,M$) : CONVER 

T Q9T0  A$, (#####) :STR(L$  (I) ,48,5)-A$: IF  A-3THEN  630 

500GOSUB  1 200 ("00000", "1 1099", 6,0, "ENTER  TTMB " , 1 , M$ ) : CONVERT 

Q9  TO  A$,(tf##»)  :STR(L$(I)  ,54,5)-A$:IF  A-3THEN  630 

510  IF  A-2THEN  590 

520  IF  I[-30  THEN  550  :I-I-10 

530  IF  1-39  THEN  570 

540  GOTO  560 

550  IF  1-30  THEN  380 

560  NEXT  I 

570  GOTO  160 

580  INPUT  "WHICH  LIST  DO  YOU  WISH  TO  CHANGF  (1  TO  30,41  TO  4 

9)  ",  I :GOTO  390 

5°0  INPUT  "DO  YOU  WISH  TO  CHANGE  ANOTHER  LIST(Y  OR  N)",D$ 

600  IF  D $-"Y"THEN  580:GOTO  160 

610  PRINT  HEX(03) : INPUT  "WHICH  LIST  DO  YOU  WISH  TO  WORK  WITH 
(1  TO  30,41  TO  49)", I 

620  CONVERT  I TO  M$,  (/*/')  :STR(L$  (I)  ,1,2) -MS 
630  PRINTUSING  8 30 : PRINTUSING  840:PRINT  L$(I) 

640  PRINT  "WHICH  PARAMETER  DO  YOU  WISH  TO  CHANGF " S PP INT  TA B ( 

10)  ; " 1 . P F LOW"  : PRINT  TAB  (10)  ; "2  .RF  HIGH":PPINT  TAB  ( 10  ) ; "3  . PR 
F 1 LOW" 

650  PRINT  T AB (10) ; "4 .PRF  1 HICH":PPINT  T AB ( 10 ) ; " 5 . PRF  2 LOW" 
: PRINT  TAB ( 10 ) ; "6 . PRF  2 H IGH" : PRINT  TAB ( 10) ; "7 .LTITN" : PRINT 
TAB (10) ; "8. SPRI" 

660  PRINT  TAB(IO) ; "9 . TBKS F" : PRINT  TAB (10) ; "10 . TTMB" : PRINT  TA 
B (10); "11. NO  OTHERS" : INPUT  D2 

670  ON  D 2 GOTO  410,420,430,440,450,460,470,480,400,500,260 
680  DEFFN’100(L$,D$,C,G) 

690  PRINT  HEX (03) 

700  ON  G GOTO  720,730 
710  PRINT  "ASMD  LISTS":GOTO  750 
720  PRINT  "WAS  LISTS" :GOTO  750 
730  PRINT  "LAND  LISTS" 

740  PRINT  H EX (0 3 ) 

750  FOR  J-1T0  C 
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910  SCRATCH  F "LLISTS" : DATA  SAVE  DC  OPEN  F "LL ISTS " , "LL ISTS " 

920  DATA  SAVE  DC  L$() 

930  DATA  SAVE  DC  END  : DATA  SAVE  DC  CLOSE 

940  PRINT  HEX(030A0A0A0A) SPRINT  "DO  YOU  WANT  TO:":PRINT  TAB ( 

7) ; "1. STOP" SPRINT  TAB(7) ; "2. RETURN  TO  'START'  PROGRAM" s PRINT 

TAB (7) ; "3. RETURN  TO  THE  BEGINNING  OF  THIS  P ROGRAM" s INPUT  E 

950  ON  E GOTO  980,970,990 

960  PRINT  "INVALID. REENTER" sGOTO  940 

970  LOAD  DC  F "START" 

980  STOP 

990  PRINT  HEX (030A0A0A) sGOTO  60 

1000  DEFFN ' 200 (Q$ (1 ) , Q$ (2 ) , Q3 , Q4 , Q5$ , Q5 ,M$ ) 

1010  SELECT  PRINT  005 (64) SPRINT  HEX (03 ); "LIST  #«";M$sPRINT  H 
EX(010A) ; Q 5 $ ; TAB (63) SPRINT  "?"ssFOR  Q8-1TO  Q3sPRINT  "-";s  NE 
XT  Q8s  IF  Q5-2THEN  1020sPRINT  ft/";sIF  O4-0THEN  1020sFOR  Q8-1 
TO  04  SPRINT  " ; s NEXT  Q8 

1020  PRINT  TAB(63) SPRINT  HEX (010A0A0909 ); s 08-0 s INIT(20)O6$s 
07$  = "0" s Q6-Q 

1030  09$-"  "sKEYIN  0 9 $ , 1040 , 10 30 s GOTO  1030 

1040  IF  0 9 $-HEX ( OD ) THEN  1090sIF  09$ -HEX (08) THEN  1120sIF  09$- 
HEX  (E5 ) THEN  IOIOsPRINT  09$;sIF  Q5-2THEN  1160s0N  VAL<'09$)-42 
GOTO  1060,1050,1060,1070 

1050  IF  09$  [HEX(30)  THEN  UlOsIF  09$]HEX(3°)THEN  lllOsCOTO  lo 
80 

1060  IF  0 8 [ 1 OTHEN  1110 s 06-1 s GOTO  ln^n 

1070  IF  POS (06$-". ")-OTHEN  lOPOsIF  POS (06 $-".") f ] Q8+1TUEN  11 
10 

1080  OR-08+ls STR(06$ ,Q8, 1)»09$ sGOTO  ln30 

1090  PRINT  HEX(ODOA) s PRINT  TAB(63)sIF  05-2THEN  117o:iF  08-0T 
HEN  1110  s IF  0 8 ] 13THEN  lllGsIF  03 ] Q3+Q4THEN  1 110 s 0 7-POS (06$-" 

. " ) s IF  Q7-0THEN  HOOsIF  07  ] 03+06+1THEN  UlOsIF  08-07]04THEN 
1110 

1100  CONVERT  STR(Q6$,1,Q8)T0  09sC0NVERT  0$fl)T0  Q6SC0NVERT  0 
$ (2)  TO  0 7 s IF  Q 9 [ Q6THEN  UlOsIF  Q9T-Q7THEN  1180 
1110  PRINT  HEX(07) SPRINT  HEX (010A0A0A) ; "INVALID . RE-ENTER" s G 
OTO  1010 

1120  Q3-Q 8-1 s IF  Q 8 [ OTHEN  1 1 10 s STR (Q 6$ , Q8+1 , 1 ) - " " s IF  Q8-Q3TH 
EN  1150  s IF  Q 8 [ -03+Q4THEN  1140 
1130  PRINT  HEX(b82003) ; sGOTO  1030 
1140  PRINT  HEX(082D08) ; sGOTO  1030 

1150  IF  05 [ ] 1THEN  1130sPRINT  HEX (08 2F0 8 ) ; s GOTO  1030 
1160  IF  Q9$  [HEX  (20)THEN  UlOsIF  09$  ]HEX  (7F)  THEN  lllQsGOTO  10 
80 

1170  IF  Q 8 ] 03THEN  UlOsIF  Q6$  [ Q$  (1)  TH  EN  UlOsIF  06$]Q$(2)THE 

N 1110 

1180  RETURN 

1190  DEFFN ' 50 (A$ ) 

1200  FOR  J-1T0  3 S IF  STR ( A$ , J , 1 ) [] "0"  THEN  12 10 s STP (A$ , J , 1) -" 

"sNEXT  J 
1210  RETURN 
1220  INIT ("  " ) L $ ( ) 

1230  DATA  SAVE  DC  OPEN  F 1 5 , "WL ISTS " s DATA  SAVE  DC  L$() 

1240  DATA  SAVE  DC  OPEN  F15 , "ALISTS" sDATA  SAVE  DC  LS() 

1250  DATA  SAVE  DC  OPEN  F 1 5 , "LL I STS " s D ATA  SAVE  DC  L $ ( ) 

1260  GOTO  70 
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EXCAP  EA-6B  MANAGEMENT 

(DOES  NOT  INCLUDE  THOSE  USED  BY  DEFFN'200) 


A OPERATOR  OPTION  VARIABLE  FOR  CHANGING  LIST  PARAMETERS/ 
SAVING  NEW  LISTS/STOP 

B NUMBER  OF  LISTS  TO  BE  ENTERED 

C NUMBER  OF  HARD  COPIES  TO  BE  MADE 

E END  OF  PROGRAM  OPTION 

G WHICH  SET  OF  LISTS  ARE  TO  BE  WORKED  WITH 

H INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PRINT 

ROUTINE 

I INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PARAMETER 

INPUT/LIST  NUMBER  TO  BE  CHANGED 

J INDEX  VARIABLE  FOR  HARDCOPY  PRINTOUT 

D2  PARAMETER  TO  BE  CHANGED  IN  LIST  I 

A$  DEFIN'50  PASSING  VARIABLE.  PARAMETER  INPUT  RECEIVER 
VARIABLE . 

D$  INPUT  VARIABLE  FOR  YES/NO  QUESTIONS 

L$  DATA  LOAD  RECEIVING  VARIABLE 

M$  LIST  NUMBER  AFTER  CONVERSION  TO  ALPHANUMERIC  VARIABLE 
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I CAP  EA-6B  LIST  MANAGEMENT 

10  REM  DEVELOPED  BY  LT  S .W. SMITH, USN,  2/12/7? 

20  PRINT  HEX ( 0 3 ) 

30  PRINT  " THIS  PGM  WILL  ASSIST  THE  EWO  IN  MANAGING  THE  ICA 
P S OUADRON ’ S ": PRINT  TAB ( 1 7 ) ; ”ACO  AND  PA  ASSIGNMENT  LISTS" 

40  DIM  Q$ (2)64,Q5$64,Q7$1 
50  DIM  L$(50)64,A$8 
60  PRINT  HEX ( 0A0A0A) 

70  PRINT  TAB(IO) ; "WHICH  LIST  SET  DO  YOU  WANT  TO  WORK  WITH" 

80  PRINT  TAB(27) ; "1 . WAS " : PRINT  TAB (2 7 ); "2 . LAND ": PRINT  TAB(27 
) ■ " 3 . AS  MD  " 

90  INPUT  G : ON  G GOTO  150,130,110 
100  PRINT  "INVALID. REENTER" : GOTO  70 

110  DATA  LOAD  DC  OPEN  F "ALISTS" :DATA  LOAD  DC  L$():REM  **** 
IF  ERR  80  OCCURS,  ENTER  RUN  1190***** 

120  GOTO  160 

130  DATA  LOAD  DC  OPEN  F "LLISTS" :DATA  LOAD  DC  L$():REM  ***** 
IF  ERR  80  OCCURS,  ENTER  RUN  1190***** 

140  GOTO  160 

150  DATA  LOAD  DC  OPEN  F "WL ISTS " : DATA  LOAD  DC  L$():RFM  ***** 
IF  ERR  80  OCCURS,  ENTER  RUN  1190***** 

160  INPUT  "DO  YOU  DESIRE  A LISTING  OF  THE  PRESENT  LISTS(Y  OR 
N)",D$ 

170  IF  D$-"N"THEN  260 
180  GOSUB  ’ 100  (L$ ,"N",1,G) 

190  INPUT  "DO  YOU  WANT  A HARD  COPY  OF  THE  LISTS (Y  OR  N)  ",D$ 

200  IF  D$-"N"THEN  260: IF  D$»"Y"TEEN  220 
21°  PPINT  "INVALID. REENTER" : GOTO  190 
220  INPUT  "HOW  MANY  COPIES  ",C 
230  SELECT  PRINT  215 
240  GOSUB  '100  (L$,D$,C,G) 

250  SELECT  PRINT  005 

260  PRINT  HEX (030A0A0A) :PRINT  "DO  YOU  WANT  TO  :" 

270  PRINT  TAB(7) ;"1. ENTER  ALL  NEW  LISTS":PRINT  T AB ( 7 ) ; "2 . CKA 
NGE  SOME  OF  THE  L ISTS" : PRINT  TAB ( 7 ) ; " 3 . CHANGE  SELECTED  PARAM 
ETERS  IN  A SELECTED  LIST" 

280  PRINT  TAB ( 7) ; "4 . SAVE  WHAT  YOU  HAVE  DONE" : PRINT  TAE(7);"5 

.LIST  THE  LISTS" : PRINT  TAB ( 7 ) ; "6 . STOP" : INPUT  A 

290  IF  A [ 7THEN  300:PRINT  " INVALID . REENTER" : GOTO  260 

300  ON  A GOTO  330,550,530,830,180,310 

310  INPUT  "SAVE  ANY  THING???????? (Y  OR  N)",D$ 

320  IF  D$-"Y"THEN  830:G0T0  910 

330  INPUT  "NUMBER  OF  LISTS  TO  BE  ENTERED  ([-50)", 3 
340  IF  B [ 41THEN  350:PRINT  "INVALID .REENTER" :GOTO  330 
350  IN IT ( " " ) L $ ( ) 

360  FOR  1-1  TO  B 

370  CONVERT  I TO  M$,  (##) 

380  STR(L$ (I) , 1,2)-M$ 

390  GOSUB  '200(r'001",  "110",  4,0,  "ENTER  FTP"  , 2 ,M$  ) : STP.  (L$  ( I ) , 4 
, 3) -Q6$ : IF  A-3  THEN  600 

400  GOSUB  '200("55", "10500", 6,0, "ENTER  FREQ  LO " , 1 , M$ ) : CONVER 
T Q9  TO  A$  , (#«?>#)  :GOSUB  ' 50 (A$ ) : STR (L $ ( I ) , 8 , 5 ) -A$ : IF  A-3  TH 
EN  600 

410GOSUB  '200("55", "10500", 6,0, "ENTER  FREQ  HI" , 1 ,M$ ): CONCERT 
09  TO  A$,  (ftIHHH?)  : GOSUB  ' 50  (A$  ) : STR  (L$  (I ) , 14 , 5 ) -A$  : IF  > -3THEN 
600 

420GOSUB  ' 2 0 0 ( " 40" , " 99 9 9" , 5 , 0 , "ENTER  PPF  1 LO " , 2 , M$ ) : STR (L 

$ (I) ,20,4)»A$ :IF  A-3THEN  600 

4 3CGOSUB  ’ 2 00  ("  40" , "S9999"  , 6 , 0 , "ENTER  PPF  1 HI" , 2 ,M$ ) : STR 

(L$ (I),24.5)-06S :IF  A-3THEN  600 

44QGOSUB  ’ 2 0 0 ( " 4 0" , "9  9 QO " , 5 , 0 , "ENTER  ?RF  2 LO " , 2 , MS ) : STR (L 

$ 61) , 29 ,4)-AS : IF  A-3THEN  60" 
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4 50G0SUB  ' 200  ("  4 0" , "S 99 99 " , 6 , 0 , "ENTER  PRF  2 HI " , 2 , M$ ) : STR 

(L$(I),33,5)-06$:IF  A-3THEN  600 

460GOSUB  ’200(" 00000900 ","76543210", 9,0, "ENTER  SITE",1,M$) :C 
ONVERT  09T0  A$  ,(•?*#*(**’ i*  ):  STR  (L$  (I  ),  39 , 8 ) -AS  : IF  A-3THEN  600 
470COSUB  '200(ft00", "31", 3,0, "ENTER  SYM  , 1 ,M$ ) : CONVERT  09  TO 
A$,  (M):STR(L$  (I)  ,48,2)-A$  :IF  A-3THEN  600 

480G0SUB  ’200("000", "799", 4,0, "ENTER  PRI ",  1 ,M$ ): CONVERT  09T0 
A$,  (##!})  :STR(L$(I),51, 3)-A$:  IF  A-3THEN  600 

490G0SDB  ,200("1",A5", 2,0, "ENTER  S ",  1 , M$ ): CONVERT  Q9  TO  A$,( 
if)  : STR(L$  (I)  ,55,1)-A$  : IF  A-3THEN  600 

500GOSUB  ’200("1U", "465", 4,0, "ENTER  FT" , 1 , M$ ): CONVERT  09  TO 
A$, (###) :STR(L$ (I) ,57,3)-A$:IF  A-3THEN  600 

510C0SUB  ,200("llll",rt9995", 5,0, "ENTER  TBK" , 1 ,M$ ) rCONVERT  09 
TO  A$,(#!f/i(#):STR(L$(I)  ,61,4)-A$:IF  A-3THEN  600 
520  IF  A-2THEN  560 
530  NEXT  I 
540  GOTO  160 

550  INPUT  "WHICH  LIST  DO  YOU  WISH  TO  CHANGE  (1  TO  50)",I:GOT 
0 370 

560  INPUT  "DO  YOU  WISH  TO  CHANGE  ANOTHER  LIST(Y  OR  N)",D$ 

570  IF  D$-"Y"THEN  550:GOTO  160 

580  PRINT  HEX(03) S INPUT  "WHICH  LIST  DO  YOU  WISH  TO  WORK  WITH 
(1  TO  50)", I 

590  CONVERT  I TO  M $ , ( it  if ) : STR  (L$  ( I)  , 1 , 2 ) -MS 
600  PRINTUSING  800 : PRINTUS ING  810:PRINT  L$(I) 

610  PRINT  "WHICH  PARAMETER  DO  YOU  WISH  TO  C HANG E " : PR INT  TAB ( 
10) ; "1 . FTP" ; TAB ( 31 ) ; "2 . RF  LOW":PRINT  TAB (10) ; "3 . RF  HIGH" ; TAB 
(31); "4. PRF  1 LOW" 

620  PRINT  TAB (10) ;"5.PRF  1 HIGH"; TAB ( 31 ); "6 . PRF  2 LCW":PRINT 
TAB (10) ; "7. PRF  2 HIGH " ; TAB ( 31 ) ; "8 . S ITE" : PRINT  TAP ( in ) ; "9 . SYM 
" ; TAB ( 31 ) • "10. PR I " 

630  PRINT’ TAB (10) ; "11 . S" ; TA3 ( 31 ) ; "12 . FT" : PRINT  TAB (10) ; "13. T 
BK";TAB(31) ; "14. NO  OTHERS ": INPUT  P2 

640  ON  D 2 GOTO  390,400,410,420,430,440,450,460,470,480,490,5 
00,510,260 

650  DEFFN ’100(L$,D$,C,G) 

660  PRINT  HEX (0  3) 

670  ON  G GOTO  690,700 
680  PRINT  "ASMD  LISTS" :GOTO  720 
690  PRINT  "WAS  LISTS" -.GOTO  720 
700  PRINT  "LAND  LISTS" 

710  PRINT  HEX (0 3 ) 

720  FOR  J-1T0  C 

730  PRINTUSING  800 : PRINTUS ING  810 

740  FOR  H-l  TO  50:PRINT  L$(H):IF  D$-"Y"THEN  7S0 

750  IF  H-10  THEN  770:IF  H-20THEN  770:IF  H-30THEN  770:IF  H-40 

THEN  770 

760  GOTO  790 

770  PRINT  "TO  CONTINUE  DEPRESS  EXEC": INPUT  D 

780  IF  D$-"N"THEN'  790:IF  H [ ] 2 5THEN  790  :PRINT  HEX (OAOAOAOAOA) 

: PRINTUSING  800 : PRINTUS ING  810 
790  NEXT  H : PRINT  HEX(OC):  NEXT  J 

800  ZLN  FTP  FREQ  FREQ  PRF  PRF  PRF  PRF  SITE  SM  PRI  S 

FT  TBK 

810  Z LO  HI  1L0  1 HI  2L0  2 HI 

820  RETURN 

830  ON  G GOTO  860,880 

840  SCRATCH  F "ALISTS"  : DATA  SAVE  DC  OPEN  F " AL I STS " , "AL I S 
TS" 

850  DATA  SAVE  DC  L$()  :GOTO  900 

860  SCRATCH  F "WLISTS"  : DATA  SAVE  DC  OPEN  F "WL ISTS " , "WLIFT 
S" 

870  DATA  SAVE  DC  L$()  : GOTO  900 


80 


h 


THIS  PAGE  IS  BEST  QUALITY  FBAC1ICABL4 
raoi  cxxty  fvnjiishsd  ro  hoc  — ^ 


880  SCRATCH  F "LLISTS"  :DATA  SAVE  DC  OPFN  F"LLISTS" , "LLISTS" 
890  DATA  SAVE  DC  L$() 

°00  DATA  SAVE  DC  END  : DATA  SAVE  DC  CLOSE 

910  PRINT  HEX(03QAOAOAOA) : PRINT  "DO  YOU  WANT  TO:":PFTNT  TAB  ( 

7)  ; ”1 . STOP"  : PRINT  TAB  ( 7 ) ; ”2  . RETURN  TO  'START'  PP.OGRAM"  : PRINT 

TAB(7) ; "3. RETURN  TO  THE  BEGINNING  OF  THIS  PROGRAM" : INPUT  E 

920  ON  E GOTO  950,940,960 

930  PRINT  "INVALID. REENTER" ; GOTO  910 

940  LOAD  DC  F "START" 

950  STOP 

960  PRINT  HEX (0 30A0A0A) : GOTO  60 

970  DEFFN'200(Q$(1) , Q$ (2 ) , Q3 , Q4 , Q5$ , Q5 , MS ) 

980  SELECT  PRINT  005  (64)  : PRINT  HEX  (0  3)  ; "LIST  >?-"  ;M$  : PRINT  HE 
X (010A) ;Q5$ ; TAB (63) :PRINT  "?";:FOR  Q8-1T0  Q3:PRINT  NEX 

T Q 8 : IF  Q5-2THEN  990:PRINT  "/";:IF  Q4-0TKEN  990:F0R  Q8-1T0 
Q4  : PRINT  '‘-"jjNEXT  Q8 

990  PRINT  TAB(63)  -.PRINT  HEX  (010  AO  AO  909)  ; : Q8-0 : I NIT  ( 20  ) Q6$  : 0 
7$-"0":Q6-0 

1000  Q 9 $ * " " : KEYIN  Q 9 $, 1010 , 1000 : GOTO  1000 

1^10  IF  Q9$-HEX(0D)THEN  1060:IF  Q9$-HEX (08) THEN  1090:IF  Q9$- 
HEX (E5) THEN  980:PRINT  Q9$;:IF  Q5-2THEN  1130:0N  VAL(09$)-42  G 
OTO  1030,1020,1030,1040 

1020  IF  09$  [HEX  (30)  THEN  1080:IF  Q9  $ ] HEX  ( 39  ) THEN  108O-.GOTO  10 
50 

1030  IF  08 [ ] OTHEN  1080 : Q6-1 : GOTO  1050 

1040  IF  POS(O6$-".")-0THEN  1050:IF  POS  (Q6$- ''.")[]  08+1THFN  10 
80 

1050  08-08+l:STR(06$ ,08,1)»09$:GOTO  1000 

1060  PRINT  HEX(ODOA) -.PRINT  TAB(63):IF  05-2THEN  1140-.IF  08-0T 
HEN  1080 : IF  0 8] 1 3THEN  1090:IF  08103+04THEN  10 so : 0 7-POS  ( 06$*" 
. ") : IF  O7-0THEN  1070:IF  Q 7 ] 0 3+06+1THEN  108n:iF  0 8-07 ]q4tHEN 
1080 

1070  CONVERT  STR  (06$  , 1 , Q8 ) TO  09:C0NVERT  0?(1)T0  06-.C0ITVERT  0 
$ ( 2 ) TO  0 7 : IF  Q 9 [ 06' THEN  1080:IF  09[-Q7THEN  1150 
1030  PRINT  HEX (0 7 ) : PRINT  HEX (0 10 AO AO A) ; "INVALID . RE-ENTER" : G 
OTO  980 

1090  08-03-1 : IF  OS[OTREN  10 8 0 ; STR (n6$ , 08+1 , 1 ) - " ":IF  Q8-03TH 
EN  1 1 2 0 : 1 F Q 8 [ -0 3+04THEN  1113 
1100  PRINT  HEX(08200Q) ; :G0T0  1000 
1110  PRINT  HEX (082D08) ; :G0T0  1000 

1120  IF  0 5 [ ] 1THEN  HOOsPRINT  HEX  (0  8 2F0  3 ) ; : GOTO  1000 

1130  IF  Q9$[HEX(20)THEN  1080:IF  Q9$ ] HEX ( 7F) THEN  1080:GOTO  10 

50 

1140  IF  08  JQ3THEN  1030.-IF  Q6  $ [ Q$  (1 ) THEN  1080:IF  Q6$]Q$(2)THE 

N 1080 

1150  RETURN 

1160  DEFFN ' 50 (A$ ) 

1170  FOR  J-1T0  3 : IF  STR  (A$ , J , 1) [ ] "0"  THEN  1 1 80 : STR ( A$ , J , 1 ) « " 
" : NEXT  J 
1180  RETURN 
1190  IN IT ("  " ) L $ ( ) 

1200  DATA  SAVE  DC  OPEN  F 30 , "WLISTS " : DATA  SAVE  DC  L$() 

1210  DATA  SAVE  DC  OPEN  F 30 , "AL ISTS " : DATA  SAVE  DC  L$() 

1220  DATA  SAVE  DC  OPEN  F 30 , "LLISTS" : DATA  SAVE  DC  L$() 

1230  GOTO  70 
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I CAP  EA-6B  LIST  MANAGEMENT 
(DOES  NOT  INCLUDE  THOSE  USED  BY  DEFFN'200) 

A OPERATOR  OPTION  VARIABLE  FOR  CHANGING  LIST  PARAMETERS/ 

SAVING  NEW  LISTS/STOP 

I 

B NUMBER  OF  LISTS  TO  BE  ENTERED 

C NUMBER  OF  HARD  COPIES  TO  BE  MADE 

E END  OF  PROGRAM  OPTION 

G WHICH  SET  OF  LISTS  ARE  TO  BE  WORKED  WITH 

H INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PRINT 

ROUTINE 

I INDEX  VARIABLE  TO  STEP  THROUGH  LISTS  DURING  PARAMETER 

INPUT/LIST  NUMBER  TO  BE  CHANGED 

J INDEX  VARIABLE  FOR  HARDCOPY  PRINTOUT 

D2  PARAMETER  TO  BE  CHANGED  IN  LIST  I 

A$  DEFIN'50  PASSING  VARIABLE.  PARAMETER  INPUT  RECEIVER 
VARIABLE . 

D$  INPUT  VARIABLE  FOR  YES/NO  QUESTIONS 

L$  DATA  LOAD  RECEIVING  VARIABLE 

M$  LIST  NUMBER  I AFTER  CONVERSION  TO  ALPHANUMERIC  VARIABLE 
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HULTEC 

10  REM  DEVELOPED  BY  LT  S .W. SMITH ,USN,  3/12/79 
20  PRINT  HEX(030A0A) -.PRINT  TAB ( 15)  ; "THIS  PGM  PROVIDES  A CONV 
I ENT  MEANS  OF";PRINT  TAB (15) ; "MAINTAINING  AN  UP  TO  DATE  HULT 
EC  FILE" 

30  DIM  A$ (50)64, W$(50)2,L$(50)2,B$(50)64,C$(1)10 
40  DATA  LOAD  DC  OPEN  F "DATE" : DATA  LOAD  DC  C$():DATA  LOAD  DC 
OPEN  F"HUL" : DATA  LOAD  DC  A$():REM  *****IF  YOU  GET  ERR  80,  EN 
TER  RUN  800***** 

50  PRINT  HEX (0A0A0A0A) ; TAB(IO) ; "DO  YOU  WISH  TO  LOOK  AT  THE  E 
NTIRE  FILE  AT  THIS  TIME?  Y OR  N" 

60  INPUT  D$ : IF  D$-"N"THEN  130 
70  PRINT  "DATE  OF  DATA  IS  ";C$(1) 

80  PRINTUSING  310 

90  FOR  I-1TO  50 : PR INT  A$(I):IF  1-10  THEN  11Q:IF  1-20  THEN  11 
0 : IF  1-30  THEN  110:IF  1-40  THEN  110:IF  1-50  THEN  120 
100  NEXT  I 

110  PRINT  HEX(OAOA) : INPUT  "MORE  TO  SEE.  DEPRESS  EXEC  TO  CONT 
" , D : GOTO  100 

120  INPUT  "NO  MORE  TO  SEE.  DEPRESS  EXEC  TO  CONTINUE  PGM",D 
130  PRINT  "DO  YOU  WISH  TO:" 

140  PRINT  TAB(IO) ;"1. CHANGE  AN  ENTRY" : PRINT  TAB ( 10 ) ; "2 . OBTAI 
N A HARD  COPY  OF  THE  CURRENT  FILES":PRINT  TA B ( 1 0 ) : " 3 . SAVE  WH 
AT  YOU  HAVE  DONE" : PRINT  TAB (10) ; "4 .LIST  THE  FILES" 

150  PRINT  TAB (10) ; "5 . SEARCH  FOR  A PARTICULAR  PLATFORM" : PRINT 
TAB (10) ; "6. SEARCH  FOR  A PARTICULAR  EMITTER ": PRINT  TAE(1Q);"7 
.RETURN  TO  THE  'START'  PROGRAM" : PRINT  TAB (10) ; "8 . STOP" 

160  INFUT  E : ON  E GOTO  170, 320, 370, 8 0,500, RAO, 940, 5°0 

170  INPUT  "WHICH  LINE  DO  YOU  WISH  TO  CHANGE" , B : CONVERT  BTO  S 

TR(A$(B) ,63,2) , (##) 

180  PRINT  "DO  YOU  WISH  TO  CHANGE" : PRINT  TAB ( 10 ) ; "1 . ALL  VALUE 
S": PRINT  TAB (10) ; "2. SELECTED  VALUES INPUT  F 
190  IF  F-2THEN  460 
200  PRINT  HEX (0  3) 

210  GOSUB  ' 24  3 ("ENTER  RF  ",5):GOSUB  '50(Q6$) : STR (A$ (B)  ,1,5)- 
Q6$ : IF  F-2THEN  460 

220  GOSUB  ’ 24 3 ( "PRF" , 4 ) :GOSUB  ' 50 (Q6$ ) : STR (A$ ( B) , 7 , 4 ) -Q6 $ : IF 
F-2THEN  460 

230  GOSUB  ' 243 ("PRI  l",9):GOSUB  ' 50 (Q6 $ ) : STR ( A$ ( 3 ) , 1 2 , 9 ) -Q6 $ 

: IF  F-2THEN  460 

240  COSUB  ' 24 3 ( "PRI  2",9):GOSUB  ' 50 (Q6 $ ) : STR ( A$ (B ) , 2 2 , 9 ) -Q6 $ 

: IF  F-2THEN  460 

250  GOSUB  '243 ("PW" , 4 ) : GOSUB  ’ 50 (Q6$ ) : STR (A? (B ) , 3 2 , 4 ) -Q6 $ : IF 
F-2THEN  460 

260  GOSUB  ' 24  3 ("SCAN  PERIOD" , 4 ): GOSUB  ' 50 (Q6$ ) : STR (A$  (B) , 37 , 

4 ) *Q6$ : IF  F-2THEN  460 

270  GOSUB  ' 243  ("PLATFORM' S NAME"  , 8 ) : STR (A$  ( B ) , 4 2 , f!  ) -Q6$  : IF  F 
= 2THEN  460 

280  GOSUB  ' 24  3 ("EMITTER ' S NAME" , 6 ) : STR (A$ (B ) , 5 1 , 6 ) -06 $ : IF  F = 

2THEN  460 

290  GOSUB  '243 ("NTDS  KEY  NUMBER" , 4 ): GOSUB  ' 50 (Q6$) : STR (A$ (B) 

, 58 , 4) -06$ : IF  F-2THEN  460 

300  PRINTUSING  310:PRINT  A$(E):PRINT  HEX  I'OAOAOA)  : GOTO  130 
310%  RF  PRF  PRI  1 PRI  2 PW  SPD  PLAT  RADAR 

KEY  LN 

320  INPUT  "PRINTER  ON  AND  SELECTED?  DEPRESS  EXEC  TO  CONT",D 
330  INPUT  "NUMBER  OF  COPIES", Cl 
3AO  FOR  I-1TO  Cl 

350  SELECT  PRINT  2 1 5 : PRINTUS ING  310:MAT  PRINT  A$:PRINT  HEX(0 

AOAO AOA) : NEXT  I 

360  SELECT  PRINT  OOSsGOTO  130 

370  INPUT  "TODAY'S  DATE  IS",C$(1) 
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380  SCRATCH  F"DATE" : DATA  SAVE  DC  OPEN  F”DATE" , "DATE” :DATA  SA 
VE  DC  C$() 

390  SCRATCH  F"HUL" : DATA  SAVE  DC  OPEN  F"HUL","HUL" 

400  MAT  SORT  A$()TO  W$(),L$() 

410  MAT  MOVE  A$(),L$(1)T0  B$(l) 

420  FOR  1-1  TO  50 : CONVERT  I TO  1$ , (## ) : STR (B$ ( I) , 63 , 2 ) -1$ : NE 
XT  I 

430  MAT  COPY  B$ ()  TO  A$() 

440  DATA  SAVE  DC  A$() 

450  GOTO  130 

460  PRINT  HEX(03) :PRINTUSING  310:PRINT  A$(B):  PRINT  "WHICH  V 
ALUE  DO  YOU  WISH  TO  CHANGE?  SELECT  ONE" 

470  PRINT  TAB(IO) ; "l.RF": PRINT  TAB ( 10 ) ; "2 . PRF" : PRINT  TAB(IO) 
; " 3 . PRI  1" : PRINT  TAB (10) ; "4 . PRI  2":PRINT  TAB (10 ) ; "5 . PW" : PRIN 
T TAB(IO) ;"6.SCAN  PERIOD PRINT  TAB (10 ); "7 . PLATFORM ’ S NAME" 

4 80PRINT  TAB(IO) ;"3. EMITTER'S  NAME" : PRINT  TAB ( 10 ) ; "9 . NTDS  KF 

Y NUMBER": PRINT  TAB (10) ; "10 . NO  OTHERS" : INPUT  G 

490  PRINT  HEX (03) : ON  G GOTO  210,220,230,240,250,260,270,230 

,290,130 

500  PRINT  HEX  (0  3 ) : GOSUB  '243  ("INPUT  PLATFORM'S  NAME" , 8 ): PR  IN 
T H EX (03) 

510  PRINTUSING  310 

520  FOR  I-1T0  50 : IF  STR ( A$ (I ) , 4 2 , 3 ) [ ] Q6$ THEN  540:PRINT  A$(I) 
530  C»C+1 :B$ (C)-A$ (I) 

540  NEXT  I: IF  C 1 0 THEN  5 50: PRINT  "NO  PLATFORMS  WITH  THAT  NAME 
" : PRINT  HEX(OAOAOA) :GOTO  130 

550  PRINT  HEX(OAOA) : INPUT  "HARD  COPY  DESIRED  (Y  OR  N)",D$:IF 
D$-"n"THEN  130 

560  INPUT  "HOW  MANY  COPIES ",  Cl : SELECT  PRINT  215 

570  FOR  I-1T0  C 1 : PRINTUS INC  310:FOR  J-1T0  C:  PRINT  B$(J):NEX 

T J: PRINT  HEX (OAOAOAOA) :NEXT  I 

580  SELECT  PRINT  005:GOTO  130 

590  STOP 

600DEFFN'242(W0,Q6$) :S ELECT  PRINT  005:IF  W0[»0THEN  610:INIT( 
Q6$)Q6$: PRINT  STR (Q6$ , 1 , WO-INT ( (WO-l ) / 6 3 ) * 6 3 ) ; :W0«W0-  (WO-INT 
( (W0-l)/63)*63) :GOTO  600 
610RETURN 

620DEFFN'243(Q6$,Q0) :GOSUB  660 

630SELECT  CO  205:Q6$="  ": INPUT  06$:IF  QO-OTHEN  700:IF  LEN(06 
$)[-Q0THEN  7 00 : GOSUB  '255 

640DEFFN'244(Q0) :GOSUB  680:GOSUB  670:GOTO  630 

650DEFFN'255  :GOSUB  ’248(3,0,-1)  .-PRINT  HEX  (07)  ; "RE-ENTER"  : RET 

URN 

660G0SUB  710:PRINT  HEX(OIOA) ;STR(Q6$,1) ;TAB(80) 

6 7 OGOSUB  710:PRINT  HEX(OIOAOA) ;TAB(80) ;HEX(010AOA)  :GOSUB  '24 
2 (00+2, "-") 

680PRINT  HEX(OIOAOA) 

6 90KEYIN  06$, 690, 690 : RETURN 
700PRINT  HEX (OA) ;TAB(80) 

710SELECT  PRINT  005, CO  005:RETURN 

7 2 ODEFFN ' 2 4 8 (06 , 07 , Q8 ) :SELECT  PRINT  005:IF  08-0THEN  740:IF  A 
3S (08) []9E99THEN  730:PRINT  HEX(03):G0T0  740 

730G0SUB  740  : S ELECT  PRINT  205-.PRINT  TAB  ( 7 2- P*SGN  ( 08 ) -07  ) : IF 
ABS (08) [ 2THEN  740:F0R  WO-2TO  ABS  (Q8 ): PRINT  H FX (OA) ; TAB ( 7 2- 
SGN (08 ) ) : NEXT  WO 

740PRINT  HEX (01) : GOSUB  ' 24 2 (07  , HEX (09 )): GOSUB  ' 24 2 (06  , HEX (OA 
) ) : SELECT  PRINT  005:RETURN 
750  INIT ("  " ) A $ ( ) 

760  STOP 

770  DEFFN ' 50 (06 $ ) 

780  FOR  J-1T0  3 : IF  S TR (Q6$ , J , 1 ) ] "0 "THEN  7 90  : STR (06  $ , J , 1 ) » " " 
: NEXT  J 
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790  RETURN 

800  INIT ("  " ) A$ () : INIT ( " ")C$() 

810  DATA  SAVE  DC  OPEN  F 3 , "DATE" : DATA  SAVE  DC  C$() 

820  DATA  SAVE  DC  OPEN  F 50 , "HUL" : DATA  SAVE  DC  AS ( ) 

830  GOTO  130 

840  PRINT  HEX  (03)  :GOSUB  '243("INPUT  EMITTER'S  NAME" , 6)  : PRINT 
HEX (03) 

850  PRINTUSING  310 

860  FOR  I-1T0  50 : IF  STR (A$ ( I) , 51 , 6) [ ] Q6$THEN  880:PRINT  A$(I) 

870  C-C+1:B$ (C)-A$  (I) 

880  NEXT  I : IF  C-OTHEN  930 

890  PRINT  HEX (OAOA) : INPUT  "HARD  COPY  DESIRED  (Y  OP  N)",DS:IF 
D$-"N"THEN  130 

900  INPUT  "HOW  MANY  C OPIES" , Cl : SELECT  PRINT  215 

910  FOR  I-1TO  C 1 : PRINTUSING  310:F0R  J-1TO  C:  PRINT  BS(J):NEX 

T J : PRINT  HEX (0A0A0A0A) : NEXT  I 

920  SELECT  PRINT  005:G0T0  130 

° 30  PRINT  "NO  EMITTERS  WITH  THAT  NAME" : PRINT  HEX(QAOA) :^0T0 
130 

940  LOAD  DC  F"START" 


HULTEC 


C COUNTER  FOR  MATCHES  MADE  WHEN  SEARCHING  FOR  PARTICULAR 

PLATFORMS  OR  EMITTER. 

D INPUT  VARIABLE  FOR  DEPRESS  EXEC  TO  CONT. 

E INPUT  VARIABLE  FOR  OPERATOR'S  SELECTION  OF  WHAT  HE 

WISHES  TO  DO  WITH  DATA.  E=1T08 

F INPUT  VARIABLE  FOR  SELECTION  OF  WHETHER  ALL  OR  SELECTED 

PARAMETERS  ARE  TO  BE  CHANGED.  F=1  FOR  ALL,  F=2  FOR 
SELECTED. 

G INPUT  VARIABLE  FOR  SELECTION  OF  WHICH  PARAMETER  IS  TO 

CHANGED.  G=lTO10 . 

I INDEX  VARIABLE  IN  FOR  TO  ROUTINE 

J INDEX  VARIABLE  IF  FOR  TO  ROUTINE 

Cl  NUMBER  OF  COPIES  THAT  ARE  TO  BE  MADE 

A$  RECEIVER  ARRAY  FOR  DATA  LOAD  AND  MATCOPY 

B$  RECEIVER  ARRAY  FOR  MAT  MOVE.  BUFFER  ARRAY  FOR  MATCHES 

MADE  IN  SEARCH  FOR  A PARTICULAR  PLATFORM  OR  EMITTER. 

C$  RECEIVER  ARRAY  FOR  DATE. 

D$  INPUT  VARIABLE  (Y  OR  N)  FOR  'WISH  TO  LOOK  AT  DATA' 

AND  'HARDCOPY  DESIRED'. 

L$  LOCATION  ARRAY  FOR  MAT  SORT 

Q6$  INPUT  VARIABLE  FOR  ENTRY  OF  PARAMETERS,  PLATFORM  NAME, 

AND  EMITTER  NAME. 

W$  WORK  ARRAY  FOR  MAT  SORT. 
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PRINT 

10  RF.M  DEVELOPED  BY  LT  S .W . SMITH  ,USN  2/12/7° 

20  REM  PGM  TO  PRINT  A LISTING  OF  THE  DATA  FILE 
30  DIM  A$ (A) 62 
40  PRINT  HEX (0 3) 

50  PRINT  "WHICH  FILE  DO  YOU  WANT  TO  PRINT": PRINT  TA3(10);"1. 

EPL" : PRINT  TAB (10) ; "2 .MOBILE  PLATFORMS" : PRINT  TAB (10 ); "3 . LAN 

D EOB": INPUT  D 

60  ON  D GOTO  70,200,230 

70  INPUT  "INSTALL  EPL  DISK  IN  DRIVE  2, DEPRESS  EXFC  TO  CONT", 

G 

RO  LIMITS  R "EPL1F1",A1,A2,A3 
90  S-Al 

100  SELECT  PRINT  215 

110  PRINT  "ELINT  MC  NAME  FC  NTDS"  COMMENTS" 

120  FOR  1-1  TO  ( A3-2 ) 

130  DATA  LOAD  DA  R (S,S)  A$  () 

140  FOR  K-l  TO  4 

150  IF  STR(A$(K) ,7,2) [ ]"  0"  THEN  170 
160  FRINT  A $ ( K) 

170  NEXT  K 
180  NEXT  I 
190  GOTO  330 

200  INPUT  "INSTALL  MOBILE  PLATFORM  DISK  IN  DRIVE  2, DEPRESS  E 
XEC  TO  CONT", G 

210  LIMITS  R"E0B1F1",A1,A2,A3 

220  S*A1 : SELECT  PRINT  215:PRINT  "NAME  CC":GOTO  260 

230  INPUT  "INSTALL  LAND  EOB  DISK  IN  DRIVE  2.  DEPRESS  EXEC  TO 
CONTINUE", G 

240*  LIMITS  R"E0B2F1",A1,A2,A3 

250  S*A1 rSELECT  PRINT  215:PRINT  "LAT/LONG  CC" 

260  FOR  I-1TO  (A3-2) 

270  DATA  LOAD  DA  R (S,S)A$() 

280  FOR  K-1T0  4 

290  IF  STR(A$ (K) , 20,1) ]-"2"THEN  310 
300  PRINT  STR(A$ (K) ,2,17) 

310  NEXT  K 
320  NEXT  I 

330  SELECT  PRINT  005:LOAD  DC  F"START" 
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PRINT 

D DATA  FILE  SELECTION  VARIABLE 
G CONTINUATION  VARIABLE 

I FOR  TO  INDEX  VARIABLE 

K INDEX  VARIABLE 

S RECEIVING  VARIABLE  FOR  SECTOR  NUMBER  AFTER  DA  LOAD 

A1  FIRST  SECTOR  ADDRESS  IN  DATA  FILE 

A2  ENDING  SECTOR  ADDRESS 

A3  NUMBER  OF  SECTORS  USED  IN  DATA  FILE 

A$  RECEIVING  ARRAY  FOR  DATA  LOAD  COMMANDS. 
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